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LA MEMORIA 


'D Introducción 


ASTA el momento he- 
mos visto mecanis- 
mos capaces de rea- 
lizar operaciones. He- 
mos visto también 
que con una hábil 
combinación de és- 
tos, podemos realizar 


2.2 GENERACION 
Un cajón con placas 
transistorizadas 


41.2 GENERACION 
Un armario de circuitos 
con válvulas 
electrónicas 


'Q Tipos de memorias 


Podemos hacer una primera clasifica- 
ción de las memorias en base a su funcio- 
namiento. 


— Memorias no volátiles: son memo- 
rias que no pierden la información alma- 
cenada en ellas aunque se quite la ali- 
mentación. 

— Memorias volátiles: se utilizan para 
almacenar datos de forma temporal. La 
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todas las operaciones lógicas. 


Pero toda operación necesita operan- 
dos, y éstos, necesitan almacenarse en 
algún sitio. También es necesario alma- 
cenar todos los bits que utiliza el ordena- 
dor para realizar las operaciones. Todo 
este espacio de almacenamiento nece- 
sario para retener el conjunto de informa- 
ciones se denomina memoria. 


4.” GENERACION 
Integración a gran 
escala en una cápsula 


3." GENERACION 
Aumenta la capacidad 
de integración 


memoria residente en la CPU es de este 
tipo, ya que al desenchufar el ordenador 
los programas y datos almacenados en 
él se borran. En un principio estaban he- 
chas con núcleos de ferrita, actualmen- 
te se utilizan semiconductores principal- 
mente. 
Existen dos tipos: 


— Memorias ROM. Son memorias de 
solo lectura. 


e ROM: la información que contienen 


viene dada por el fabricante; es la más 
utilizada en la fabricación. 

e PROM: son programables por el usua- 
rio, pero una vez que han sido programa- 
das no pueden cambiar su contenido. 

e EPROM: son programables también 
por el usuario pero pueden cambiar su 
contenido; son las más utilizadas. 

e EAPROM: programables por el usua- 
rio pero alterables eléctricamente. Su di- 
ferencia con las memorias RAM es que 
tienen mayor tiempo de acceso. 


lA Mediante los decodificadores es posible 
á localizar cualquier bit en el nudo de la 
red. 


— Memorias RAM. Son memorias de 
lectura y escritura, el tiempo de acceso 
es el mismo en ambas operaciones. 


e Estáticas: no necesitan depender de 
los flancos de las señales producidas por 
el reloj del sistema. No pierden informa- 
ción. 

e Dinámicas: necesitan una lógica de 
control que produzca flancos y periodos 
de refresco. Almacenan información du- 
rante un tiempo determinado. 

+ Seudoestáticas: son estáticas de 
cara al usuario, internamente son dinámi- 
cas (tienen una lógica de control). 


Una segunda clasificación, más cono- 
cida quizá por personas sin grandes co- 
nocimientos de electrónica, atiende a su 
situación. 

El concepto de memoria se aplica in- 
distintamente tanto a la residente en la 
CPU, como a cualquier dispositivo de al- 
macenamiento. Sin embargo, existe una 


diferencia fundamental entre las dos cla- 
ses: la memoria auxiliar no puede ser eje- 
cutada directamente por la CPU, por lo 
que para poder ejecutar cualquier pro- 
grama almacenado en este tipo de dis- 
positivos (discos, cintas, etc.), habría que 
cargarlo antes en la memoria principal. 


REGISTROS 
DE LA 
cpu 


Diferencia entre la memoria y los registros 


de la CPU. 


CPU 


Las memorias que no están residentes 
en el ordenador se denominan memorias 
de masa, y se pueden clasificar en dos 
grandes grupos: secuenciales y de acce- 
so directo o aleatorio. 

Las memorias de masa de acceso se- 
cuencial son aquellas a las que se ac- 
cede a un dato de forma que antes se ha 
tenido que pasar por todos los que le 
preceden. Los ejemplos más conocidos 
de dispositivos de almacenamiento de 
este tipo son las cintas perforadas y las 
cintas magnéticas. 

Los dispositivos de almacenamiento de 
acceso directo tienen la ventaja de po- 
der localizar cualquier dato de forma di- 
recta; los discos, los disquetes y tambo- 
res magnéticos son los más utilizados. 


' La memoria en la CPU 


Vamos a referirnos ahora a la memoria 
que se encuentra en la CPU. Esta memo- 
ria está construida totalmente con ele- 
mentos electrónicos, es muy rápida pero 
tiene el inconveniente de que es volátil. 

Dentro de la memoria de la CPU pode- 
mos establecer una separación en dos 
bloques. 
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[A Registros imprescindibles utilizados por la 
CPU. 


Uno de estos bloques es el constituido 
por un conjunto de registros alojados en 
el interior del microprocesador. Estos re- 
gistros son utilizados por la Unidad de 
Control y la Unidad Aritmético-Lógica 
para almacenar la información que se 
está tratando en un momento dado. Este 
bloque tiene una importancia fundamen- 
tal al ser determinante en la velocidad 
de trabajo del microprocesador. Cuanto 
más generoso sea el sistema en dotarle 
de registros, mayor será la capacidad de 
trabajo y la posibilidad de ser rápido. 

En lineas generales, el número de regis- 
tros de la CPU depende del número de 
recursos propios del sistema, pero, des- 
de luego, hay registros de los que no se 
puede prescindir. 

La Unidad Aritmético-Lógica necesita 
al menos de un registro, llamado acumu- 
lador, donde mantienen el resultado de 
las operaciones que realiza, además de 
uno o dos registros más donde sitúa los 
operandos. La Unidad de Control necesi- 
ta un registro que utiliza como contador 
de las líneas de programa, en concreto, 
le sirve para almacenar el número de la 
siguiente instrucción a ejecutar; necesi- 
ta, además, el registro de instrucción 
donde retienen los códigos de las ope- 
raciones o instrucciones posibles y que 
utiliza para decodificarlas conveniente- 
mente; y finalmente, un registro general 
donde se almacenan temporalmente 
operandos o direcciones de memoria 
concretas. 


Existen otros registros que mantienen 
valores particularmente significativos, 
como el registro de estado, en el que se 
encuentran las direcciones de programa 
desde las que se han ejecutado los sal- 
tos o subrutinas. 


'O Almacenamiento en memoria 


Veamos, ahora, los dispositivos que ha- 
cen posible mantener un valor 0 Ó 1 
mientras no se decide que cambie. En el 
resto de dispositivos, los valores sólo se 
mantienen mientras dura el paso de 
corriente, desapareciendo después sin 
dejar señal del valor que se había tenido. 


ENTRADAS 


lA Representación del biestable por medio 
de puertas lógicas. 


El dispositivo capaz de «recordar» el 
valor anterior es el llamado biestable RS; 
su funcionamiento consiste en «realimen--. 
tar» la entrada con el valor que tenía a 
la salida, mientras no haya una altera- 
cion en las entradas R y S, no variará la 
salida. Por tanto, estará recordando 
continuamente el estado en el que se en- 
cuentra; es capaz de «almacenar un bit». 


'O La memoria central 


La memoria central es la que apoya a 
la CPU. Entre ésta y los registros existe una 
diferencia relativa a la organización, ta- 
maño e incluso construcción de los dis- 
positivos básicos. 


Unidad elemental de memoria. 


La memoria central es destinada al al- 
macenamiento de la información con la 
que se ha de trabajar en un proceso 


cualquiera. Entre esta información están 
las instrucciones acerca del trabajo. Sólo 
una cantidad muy pequeña de esta in- 
formación ocupa los registros en un ins- 
tante preciso. 


La memoria virtual 


La memoria virtual es una facilidad que 
se da al programador de forma que apa- 
rentemente puede utilizar mucha más 
memoria de la que en realidad existe. De 
esta manera los programadores pueden 
ejecutar sus programas sin que realmen- 
te quepan en la memoria del ordenador. 
La memoria virtual se apoya en la memo- 
ria real para poder moverse, es decir, se 
intoduce en la memoria real, en parti- 
ciones, ya que por ser mayor no cabría, 
y así en sucesivas entradas y salidas pue- 
de realizar sus funciones. 


E de uso 
de rutinas 


L ejemplo que propo- 
nemos nos va a servir 
de pretexto para 
analizar con detalle 
un programa en el 
que se hace un ex- 
tenso uso de rutinas. 
En ellas se pasan pa- 
rámetros por medio de los registros que 
es el método más fácil y más usado. 
Como casos especiales, se incluyen ruti- 
nas llamadas por otras rutinas y otras cu- 
yos puntos de entrada se definen por me- 
dio de la instrucción LABEL. 

El programa PROGA lee del teclado dos 
números hexadecimales, calcula su suma 
y representa el resultado también en 
hexadecimal, por lo que, además de ins- 
tructivo, puede resultar útil. 

El listado contiene 7.500 caracteres, de 
los cuales, sólo 1.500 corresponden a ins- 
trucciones del programa y el resto son 
comentarios que acompañan a todas las 
líneas. La primera parte del comentario 
es un número secuencial que utilizare- 
mos para hacer referencia a las líneas. 

PROG4 está compuesto por un único 
segmento llamado CODIGO, cuyos lími- 
tes están definidos en las líneas 003 y 
129. En el segmento se han definido cua- 
tro procedimientos: 


PROCA. El el procedimiento que hace 
las veces de programa principal. En efec- 
to, recibe control del DOS, tal como se 
especifica en la instrucción END (línea 
130), prepara su retorno en las líneas 006 
a 008, y vuelve al DOS en la instrucción 
RET de la línea 038. Este procedimiento es 
el único que se ha definido de tipo FAR, 
por requerirlo así el método que se em- 
plea para volver al DOS. 

PROC2. Este procedimiento. contiene 
en su interior instrucciones LABEL que de- 
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finen los puntos de entrada a las rutinas 
OBTENER, REPRESENTA2 y REPRESENTA 1. 

OBTENER sirve para leer dos caracteres 
del teclado y devolver al programa que 
lo llamó (PROC1) el código binario 
correspondiente. Este rutina llamaba a 
HEXA-BIN para realizar la conversión. La 
lectura del teclado se realiza mediante 
la llamada número 1 al DOS, que se ex- 
plicará más adelante cuando se trate de 
las interrupciones por software. 

REPRESENTA 2 sirve para representar en 
pantalla los dos caracteres ASCII defini- 
dos en los registros AH y AL. Para ello lla- 
ma dos veces a REPRESENTA 1. 

REPRESENTA 1 sirve para representar en 
pantalla el carácter ASCII definido en el 
registro DL. Lo cual se hace mediante la 
llamada número 2 al DOS. 

BIN.HEXA. Que sirve para obtener los 
dos caracteres hexadecimales ASCIl que 
representan al byte que en el momento 
de la llamada está contenido en el regis- 
tro AL. En el programa se la llama en las 
líneas 027 y 031 para convertir los dos 
bytes que resultan de la suma pedida. 

HEXA.BIN. Es una rutina que devuelve, 
en el registro AL, el número binario 
correspondiente a los dos caracteres 
hexadecimales ASCII que en el momen- 
to de la llamada están definidos en los 
registros AH y AL. Es, por tanto, la rutina in- 
versa de la anterior y se la llama desde 
la rutina OBTENER (línea 052). 

Una vez conocidas las 5 rutinas, la lec- 
tura del programa principal resulta muy 
sencilla. En efecto, el programa se pue- 
de resumir en lo siguiente: 


1. Prepara la vuelta al DOS. 

2. Escribe en la pantalla el carácter 
que indica que el programa está prepa- 
rado para responder. 

3. Obtiene del teclado dos caracte- 
res ASCIl que generan el primer suman- 
do. | 

4. Sialgún carácter no es válido, vuel- 
ve al DOS. 


5. 


do. 

7. Si algún carácter no es válido, vuel- 
ve al DOS. 

8. Escribe en la pantalla el signo =. 


9. Suma los dos sumandos obtenidos. 


Liz 


OBTENER LABEL NEAR 
5 Esta rutina devuelve en el 


Escribe en la pantalla el signo +. 
6. Obtiene del teclado dos caracte- 
res ASCII que generan el segundo suman- 


3042 


10. Convierte el resultado a hexade- 


cimal ASCII. 


11. 
significativa de la suma. 


12. 
nos significativa de la suma. 


13. Vuelve al punto 2. 


Programa PROG4. Suma de hexadecimales. 


Comienzo del Segmento CODIGO. 

Supone que CS direcciona el segmento CODIGO. 
Comienza el procedimiento PROCi (principal). 
Prepara en el STACK 

la vuelta al DOS para cuando 

termine el programa. 


Representa en pantalla 

el carácter (+). 

LLama a la rutina OBTENER (primer sumando). 
Va a FIN si el carry flag=0N, es decir, si 
se ha tecleado algún carácter inválido. 
Salva en la pila el primer sumando. 
Representa en pantalla 

el caracter separador de los sumandos (+) 
LLama a la rutina OBTENER (segundo sumando). 
Recupera de la pila el primer sumando. 

Va a FIN si el carry flag=0N, es decir, si 
se ha tecleado algún carácter inválido. 
Representa en pantalla 

el caracter (=). 

Suma (en BX) los 2 números tecleados. *---- 
Convierte a hexadecimal (ASCII) el 

byte más significativo de la suma (BH) y 

lo representa en pantalla. 


Convierte a hexadecimal (ASCII) el 
byte menos significativo de la suma (BL) y 
lo representa en pantalla. 


Representa en pantalla 
los caracteres (0D y OA) de salto de línea. 
Va a Li para repetir el proceso. 


Termina del programa. Vuelve al DOS. 
Fin del procedimiento PROCi (principal). 


Comienzo del procedimiento PROC2. 
Punto de entrada de la rutina OBTENER. 


registro AL el número binario 
¿ correspondiente a dos caracteres hexadecimales tecleados. 
- MOV 


Mueve 1 a AH (para especificar DOS CALL n.1) 
DOS CALL n.i (Lectura del teclado sobre AL). 
Salva el primer caracter obtenido (AL) 

Mueve 1 a AH (para especificar DOS CALL n.1) 
DOS CALL n.i (Lectura del teclado sobre AL). 
Recupera el primer caracter en BL, lo 

copia en AH (ya se tiene AH-AL) y 

llama a HEXA_BIN para convertirlos a binario 
Vuelve al programa llamante. Resultado en AL 
Punto de entrada de la rutina REPRESENTAZ. 
caracteres recibidos en AH y AL. 

a DL el primer caracter (AH). 

a REPRESENTA1. 

a DL el segundo caracter (AL). 

a REPRESENTA1 

Vuelve al programa llamante. 


Mueve 


Punto de entrada de la rutina REPRESENTA1. 


js Esta rutina representa en pantalla el caracter recibido en DL. 


, 3045 

INT 21H 1046 

PUSH AX 3047 

MOV AH, 1 ¡048 

INT 21H 1049 

POP BX ¡050 

MOV AH, BL 3051 

CALL HEXA_BIN 1052 

RET 3053 

e Le 

REPRESENTAZ LABEL NEAR 3055 
3 Esta rutina representa en pantalla los 

MOV DL, AH $057 

CALL REPRESENTA1 ¡058 

MOV DL, AL $059 

CALL REPRESENTA1 —¿060 

RET ¡061 

a Le 

REPRESENTA1 LABEL NEAR ¡063 

PUSH AX 1065 

MOV AH, 2 1066 

INT 21H 1067 

POP AX 1068 

. RET 3069 

pac ENDP 3070 

ES ---- 3071 

BIN HEXA PROC NEAR $072 


Salva el registro AX. 

Mueve 2 a AH (para especificar DOS CALL n.2) 
DOS CALL n.2 (Representa DL en pantalla). 
Recupera el registro AX. 

Vuelve al programa llamante. 

Fin del procedimiento PROCZ. 


Punto de entrada de la rutina BIN_HEXA. 


; Esta rutina devuelve en el registro AX los dos caracteres hexadecimales que 
la llamada se había recibido en AL. 


j representan al byte que en 


PUSH CxX 
MOV AH, O 
MOV CL,4 


3075 
3076 
3077 


Salva en la pila el registro CX. 
Mueve O a AH. 
Define el contador de desplazamiento=4 bits. 


Escribe en la pantalla la parte más 


Escribe en la pantalla la parte me- 
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AA y LL JU/O — LEBNPIAZa HA * OLLD 12 UV RYI “ —/ UA yvr 
AL, CL 3079 Desplaza AL 4 bits dcha. (Ox yO) =-> (Ox Oy) 
AX,”00” ¡080 Suma código ASCII del origen de los números. 


Compara AH con el ASCII *9”. 

Va a LBLi si AH es menor o igual. 

Suma 7 a AH. (porque hay 7 caracteres ASCII 
extras entre el *9” y la 'A”) 

Compara AL con el ASCII *”9”. 

Va a LBL2 si AL es menor o igual. 

Suma 7 a AL. (porque hay 7 caracteres ASCII 
extras entre el *9” y la 'A*)2 

Recupera de la pila el registro CX. 

Vuelve al programa llamante. 

Fin de la rutina BIN_HEXA. 


LBL2: 


49 8h3 Eng Est 


5 A e e e € € € a e e e e e e e 
HEXA_BIN PROC NEAR Punto de entrada de la rutina HEXA_BIN. 
; Esta rutina comprueba si los dos bytes de AX (AH, AL) contienen caracteres 
y hexadecimales, es decir, si pertenecen al juego: 01234567B7YABCDEF 
3 - En caso afirmativo devuelve carry-flag=0FF, AH=00 y Al=byte convertido. 
3 - En caso arco =p devuelve carry-flag=0N (caso erróneo). 

099 Salva en la pila el registro CX. 
Salva en la pila el registro BX. 
Define el contador de bucles=2. 
Comienzo del bucle. 
Resta ASCII 0” de AL y compara resta con O. 
Va a LBLó si es menor 
Compara AL con 10. 
Va a LBL4 si es mayor. 
Resta 7 de AL (hay 7 ASCII entre *0” y *A”). 
Anula un bit. Pasa minusculas a mayusculas. 
Compara AL con 10. 
Va a LBLó si es menor. 
Compara AL con 13. 
Va a LBLó6 si es mayor. 
Ahora se tiene el código binario en AL. 
Intercambia AL (el código calculado) con AH. 
Fin del bucle. (repetir con el otro byte). 
Define contador de desplazamiento=4 bits. 
Desplaza AL 4 bits izq. (0x Oy) --> (Ox yO). 
Desplaza AX 4 bits dcha. (0x yO) --> (00 xy). 
Define el flag de carry=0FF (no hay error). 


PUSH 
PUSH 
MOV 
SsuB 
JL 
cmP 
JL 
suB 
AND 
CcmP 
JL 
cue 
Ja 
xCHO 
LOOP 
MOV 
sHL 
SHR 
cLc 
POP 
POP 
RET 
sTc 
JMP 


HEXA_BIN 

, 

CODIGO ENDS 
END 


Se recuerda que para ejecutar el pró- 
grama son necesarios los siguientes pa- 
SOS: 


e Teclear el programa fuente desde un 
editor. (Se puede prescindir de los co- 
mentarios.) 

* Generar el módulo objeto. (Median- 
te A>MASM PROG4;) 

+ Generar el módulo ejecutable. (Me- 
diante A>LINK PROG4;) 

e Ejecutar el programa generado. (Me- 
diante A>PROGA4) 


La generación del módulo ejecutable 
mediante LINK, da un mensaje en el que 
avisa de un error. Esto es debido a que 
no se ha definido el segmento de STACK, 
pero no debe preocuparnos, porque el 


Recupera de la pila el registro BX. 
Recupera de la pila el registro CX. 

Vuelve al programa llamante(resultado en AL) 
Aquí llega en caso de caracter erróneo. 
Define el flag de carry = ON (hay error). 
Va a LBLS para terminar la rutina. 

Fin de la rutina HEXA_BIN. 


Fin del segmento CODIGO. 
Fin del programa fuente. (Ejecutar PROC1). 


DOS asigna por omisión un área que no 
causa ningún problema. 

Por último, en la ejecución del progra- 
ma PROG4 observaremos que aparece 
un símbolo especial que significa «prepa- 
rado» y el programa queda a la espera 
de que se defina un primer sumando, te- 
cleando dos caracteres hexadecimales. 
Una vez tecleados, el programa escribe 
el signo más (+) y espera que se defina 
el segundo sumando. Al hacerlo, el pro- 
grama escribe el signo igual (=), a conti- 
nuación el valor de la suma, también en 
hexadecimal, y por último escribe el sig- 
no de «preparado» en la línea siguiente 
para continuar el proceso. El programa 
termina cuando alguno de los caracte- 
res tecleados no es un dígito hexadeci- 
mal. 


mm Programa: 
U Base 

de datos química 
para AMSTRAD 


STE programa es una 
auténtica base de 
datos con todos los 
elementos químicos 
conocidos. Con esta 
base de datos podre- 
mos saber, en cual- 
quier momento, to- 
dos los datos que necesitemos sobre un 
elemento químico cualquiera. 

Una vez introducido el programa, y tras 
hacer un RUN nos aparece en la pantalla 
una tabla periódica tal y como suelen 
hacer aparecer en los libros. 


SISTEMA PERIÓDICO DE LOS ELEMENTOS 


fr ña he Nu Ha 


ÚS La tabla periódica tal y como aparece en 
la pantalla. 


Una vez que nos aparece dicha tabla 
en la pantalla, podemos utilizar las teclas 


PROGRAMAS 


del cursor para movernos de un elemen- 
to a otro. Sabremos la posición del cursor 
porque el elemento sobre el que se co- 
loque se nos aparecerá invertido. 

Tras mover el cursor al elemento del 
cual queremos saber todos los datos que 
almacena el programa, para ver dichos 
datos sólo tenemos que pulsar la tecla 
ENTER. 

En la figura 2 podemos ver todos lo da- 
tos que tiene almacenado el programa 
sobre el HELIO. 


ESTADO 


VALENCIA dr 
(La mas estable) 


ESA PUES IRON ICA 
s 


[A Información que contiene el programa 
sobre el HELIO. 


En general, la información que almace- 
na este programa es la siguiente: 


— Nombre del elemento. 

— Siglas del elemento 

— Número atómico del elemento. 

— Valencias más estables. 

— Peso atómico. 

— Punto de ebullición en grados centí- 
grados. 
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— Punto de fusión en grados centígra- 
dos. 


— Densidad en gramos/milimetro. : TECNECIO Tc 


— Estructura electrónica. 


NUMERO ATOMICO 
43 


— Estructura cristalina. Nos dibuja su 
estructura. Esta puede ser tetraedrica, te- 
tragonal, cúbica simple, cúbica con cen- a 
tro en una cara, cúbica con centro en el de ESLADO 
interior, róombica, romboédrica, monocl- VALENCIA _ 

(La mas estab)Je) 
clica y hexagonal. , 


— Estado. Nos dice si es gas, sólido o ld ir A va id 
líquido mediante un dibujo distinto. En el 
caso de un gas nos aparecerá un cua- 
drado con puntitos, los sólidos como un 
rectángulo y los sólidos como un matraz 


Datos sobre el tecnecio. Obsérvese la 
ll forma de representar el estado líquido de 
— Acidez/basicidad. dicho elemento. 


lleno de líquido. 


10 REM AMOROSO OOOO OOOO OJO lOIOIOOIO OOOO Jo joK 


20 REM xxx QUIMICA Ak 
30 REM xxx Un programa realizado Xxx 
40 REM xxkx* Por ok 
50 REM xxx Carlos A. Maria Morin Xxx 
60 REM xxx AOdoK 
70 REM xxx (C> Ediciones XXkx 


80 REM **x* Siglo Cultural-1987 *xxx 
CIR EOS 

100 REM 

110 SYMBOL AFTER 230 

120 SYMBOL 230,0,15,4,4,4,4,4,4 

130 SYMBOL 231,0,240,32,32,32,32,32,32 

140 SYMBOL 232,4,8,16,63,111,215,255, 127 
150 SYMBOL 233,32,16,8,252,254,255,255,254 


160 REM 

170 REM *xxxxxx ACIDO BASICO Y LIQUIDO Aokokook 
180 REM 

190 SYMBOL 234,0,0,0,0,128,128,170,213 

200 SYMBOL 235,0,0,0,0,2,2,170,86. 

210 SYMBOL 236,0,0,0,0,128,128,128,255 

220 SYMBOL 237,0,0,0,0,2,2,2,254 

230 SYMBOL 238,128,128,128,128,128,128,128,255 
240 SYMBOL 239,2,2,2,2,2,2,2,2594 

250 REM E 

260 REM adialoidolololakxk GAS Y SOLIDO AdoddOiOioioook 
270 REM 


280 SYMBOL 240,0,0,0,0,255, 138,160, 137 

290 SYMBOL 241,0,0,0,0,254,18,70,146 

300 SYMBOL 242,146,169,130,168, 129,164, 129,255 

310 SYMBOL 243,10,162,10,162,18,70,146,254 

320 SYMBOL 245,4,10,10,4,0,0,0,0 

330 REM 

II DIES 
350 REM AMSORMOMOlOlOMOiOOk DIBUJO DE LA TABLA PERIODICA 1 a*MRSdoidSOlOOOjdlojOK 
CIA IES 
370 REM 

380 MODE 2 

390 BORDER O 

400 INK 0,0: INK 1,0 

410 k=1 


420 RESTORE 5530 

430 PRINT CHR$(23>;¡CHRS(1> 

440 TAG 

450 MOVE 184,381 

460 PRINT” ”; 
470 TAGOFF 

480 LOCATE 24,2 

490 PRINT”"SISTEMA PERIODICO DE LOS ELEMENTOS” 
500 PRINT CHR$(23);CHR$(0) 

510 LOCATE 14,5 


520 PRINT”H He” 
530 LOCATE 14,8 
540 PRINT"Li Be A A E As 
550 LOCATE 14,11 
560 PRINT"Na Mg AL, SL 2 5 AL Ar 


570 LOCATE 14,14 

580 PRINT"K Ca £c Ti V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Kr” 
590 LOCATE 14,17 

600 PRINT"Rb Sr Y Zr Nb Mo To Ru Rh Pd Ag Cd In Sn Sb Te I Xe" 
610 LOCATE 14,20 

620 PRINT"Cs Ba La Hf Ta Y Re Os Ir Pt Au Hg T1 Pb Bi Po At Rn” 
630 LOCATE 14,23 

640 PRINT"Fr Ra Ac Ku Ha” 

650 LOCATE 14,4 


660 PRINT”1 2 
670 LOCATE 14,7 

680 PRINT"3 4 Y O 7 ALO 
690 LOCATE 14,10 

700 PRINT”11 12 13 14. 1516 UY -18* 


710 LOCATE 14,13 

720 PRINT”19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36” 
730 LOCATE 14,16 

740 PRINT”37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54” 
750 LOCATE 14,19 

760. PRINT"55: 56 57 72.73 74.75 76 77 78 79 80 81-82 83 84 85 86” 
770 LOCATE 14,22 

780 PRINT'87 88 89 C4 C5” 

790 FOR a=1 TO 8 

800 READ alto 

810 ORIGIN 100,alto 

820 IF a=1 THEN DRAWY 118,0 

830 IF a>=2 AND a<=5 THEN DRAW 432,0 

840 IF a>=6 AND a<=7 THEN DRAW 46,0: MOVE 289,0: DRAW 432,0 

850 IF a=8 THEN DRAW 23,0: MOVE 408,0: DRAW 432,0 

860 NEXT 

870 FOR b=1 TO 19 

880 READ derecha 

890 ORIGIN derecha,30 

900 IF b<=2 THEN DRAW 0,335 

910 IF b=3 THEN DRAW 0,288 

920 IF b>=4 AND b<=6 THEN DRAVW 0,190 

930 IF b>=7 AND b<=12 THEN MOVE 0,50: DRAW 0,190 

940 IF b>=13 AND b<=17 THEN MOVE 0,50:DRAW 0,288 

950 IF b>=18 AND b<=19 THEN MOVE 0,50: DRAW 0,335 

960 NEXT:GOTO 1470 

970 REM 

980 REM aaSSRdSSSSESlSSlElSOElESSS ESSE SIOO EOS OOOO OOO OO OOOO OOOO OK 
990 REM aRddddlddobbbk DIBUJO DE LA TABLA PERIODICA 2 AMS ROO LK 
1000 REM a+dSidS OSOS SS lSlESSEjO” SES? OOO OOOO OOOO OOOO OOOO oK 
1010 REM 

1020 MODE 2 

1030 BORDER O 

1040 INK 1,0: INK 5,3 

1050 k=2 

1060 RESTORE 5540 

1070 PRINT CHR$(23);CHR$(1) 

1080 TAG 

1090 MOVE 184,381 
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1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


PRINT” 2. 

TAGOFF 

LOCATE 24,2 

PRINT'SISTEMA PERIODICO DE LOS ELEMENTOS” 

PRINT CHR$(23);CHR$(0) 

LOCATE 20,12 

PRINT'"57 58 59 60 61 62 63 64 65 66 67 68 69 70 71” 
LOCATE 20,15 - 

PRINT'89 90 91 92 93 94 95 96 97 98 99 CO C1 C2 C3” 
LOCATE 20,13 

PRINT"La Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu” 
LOCATE 20,16 

PRINT”Ac Th Pa U Np Pu Am Cm Bk Cf Es Fm Md No Lw'* 
FOR a=1,TO 3 

READ alto 

ORIGIN 123,alto 

DRAW 384,0 

NEXT 

FOR b=1 TO 17 

READ derecha 

ORIGIN derecha, 143 

DRAWY 0,96 

NEXT 

ORIGIN 0,0 

MOVE 128,210 

FILL 183 

PEN 5 

LOCATE 17,13 

PRINT"LA'” 

MOVE 128,160 

FILL 13 

PEN 5 

LOCATE 17,16 

PRINT” AC” 

PEN 1 

GOTO 1950 

REM 

REM SSSSSS OSOS SOS SO kE SJSO] ESOS S SES] jala” lalalolalalalalojojok 
REM AMSSSSOlSlOjSlSlOOOOOANK MOVIMIENTO DEL CURSOR 1 AMSOSSSlOlOl”Ol”OlOjOlOjOK 
IN ALLI IIIIIIIS 
REM 

INK 1,26 

ORIGIN 0,0 

x%=103 

y%=335 

PRINT CHR$(23>;CHR$(1)> 

GOSUB 1680 

RESTORE 5560 

WHILE INKEY(18>=-1 


IF INKEY(8>=0 THEN GOSUB 1850: x%=MAX(127,x%)-24: GOSUB 1680 
IF INKEY(1)=0 THEN GOSUB 1850: x%=MIN(487,x%)>+24: GOSUB 1680 
IF INKEY(0)=0 THEN GOSUB 1850: y%=MIN(287,y%)+48: GOSUB 1680 
IF INKEY(2)=0 THEN GOSUB 1850: y%=MAX(95, y%)-48: GOSUB 1680 
WEND 

SOUND 1,60,15,15 

TAGOFF 

GOTO 2260 

PRINT CHR$(23)>;CHR$(0); 

IF YPOS=63 THEN x%=MIN(199, x%) 

IF YPOS=255 AND XPOS=143 THEN x%=MIN(128,x%) 

IF YPOS=255 AND XPOS=144 THEN x%=MAX(391,x%) 

IF YPOS=255 AND XPOS=407 THEN x%=MAX(390, x%) 

IF YPOS=255 AND XPOS=406 THEN x%=MIN(127,x%) 

IF YPOS=303 AND XPOS=143 THEN x%=MIN(128,x%) 

IF YPOS=303 AND XPOS=144 THEN x%=MAX(391,x%) 

IF YPOS=303 AND XPOS=407 THEN x%=MAX(390, x%) 

IF YPOS=303 AND XPOS=406 THEN x%=MINC(127,x%) 

IF YPOS=351 AND XPOS=527 THEN x%=MAX(510,x%) 


1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
GOTO 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


IF YPOS=351 AND XPOS=526 THEN x%=MIN(103,x%) 

IF YPOS=351 AND XPOS=119 THEN x%=MIN(104,x%) 

IF YPOS=351 AND XPOS=120 THEN x%=MAX(511,x%) 

IF XPOS=143 AND YPOS=303 THEN y%=MIN(287, y%) 

IF XPOS>=407 AND XPOS<=503 AND YPOS=303 THEN y%=MIN(287, y%) 

IF XPOS>=167 AND XPOS<=383 AND YPOS=207 THEN y%=MIN(191, y%)> 

IF XPOS>=239 AND XPOS<=527 AND YPOS=111 THEN y%=MAX(95, y%) 

FOR ret=1 TO 10 

NEXT 

TAG 

FRAME 

MOVE x%,y% 

PRINT CHR$(143)>+CHR5(143); 

MOVE x%, y%+16 

PRINT CHR$(143)>+CHR3 (143); 

RETURN 

REM 

REM SSA AA ASlSlElSlPlElE Ella 

REM odidSlROlMaldlololololololok MOVIMIENTO DEL CURSOR 2 ARSS OSORIO OJOK 

REM ASS ld” SSA JOJOJOK 

REM 

INK 1,26 

ORIGIN 0,0 

x%=127 

y2%=206 

PRINT CHR$(23)>;CHR$ (1> 

GOSUB 1680 

RESTORE 5570 

WHILE INKEY(18)=-1 

IF INKEY(8>=0 THEN GOSUB 2160: x%=MAX(151,x%)-24:GOSUB 2160 

IF INKEY(1)=0 THEN GOSUB 2160: x%=MINC(463,x%)+24: GOSUB 2160 

IF INKEY(0>)=0 THEN GOSUB 2160: y%=MIN(158, y%>+48: GOSUB 2160 

IF INKEY(2)=0 THEN GOSUB 2160: y%=MAX(206, y%)-48: GOSUB 2160 

WEND 

SOUND 1,60,15,15 

TAGOFF 

GOTO 2400 

PRINT CHR$(23)>;CHR$(0)> 

FOR ret=1 TO 10 

NEXT 

TAG 

FRAME 

MOVE x%, y% 

PRINT CHR$(143>+CHR$ (143); 

MOVE x%, y%+16 

PRINT CHR$(143>+CHR$ (143); 

RETURN 

REM 

REM MRSRSSS OOOO lO OOOO SEO] OOOO SEO OOOO OOOO O OOO jOIOOJOK 
REM ddidlololoidok RECONOCE ELEMENTO EN LA POSICION DEL CURSOR TABLA 1 A3oodokk 
IA ALICIA 
REM á 

RESTORE 5560 

FOR ies=335 TO 47 STEP -48 

FOR equis=103 TO 511 STEP 24 

READ elemento$(1>,nombre$, numeroatom$, ebullicion$, fusion$ 

READ densid$, pesatom$, valen$,estruc$, estado$,acidos$, base$,cristals$ 

IF y%=ies AND x%=equis THEN IF elemento$S(1)='"La” OR elemento$(1)="Ac'” THEN 
980 ELSE GOTO 2520 

NEXT equis, ies 

GOTO 1570 

REM 

IN ALCLICACICICACICACICICCICICICICICICICICICCICICICICICICICICICICIDAS 
REM adoloioloiook RECONOCE ELEMENTO EN LA POSICION DEL CURSOR TABLA 2 AMOO KK 
REM ASOMO SO SS” OSES SISSI lOESjSESSOSOO E OOOSOOO SS a O a l la OOOjoOOOOOO OOO JOJOK 
REM 

RESTORE 5930 

FOR ies=206 TO 158 STEP -48 

FOR equis=103 TO 487 STEP 24 


PROGRAMAS 


2460 READ elemento$(2),nombre$, numeroatom$,ebullicion$, fusion$ 
2470 READ densid$, pesatom$, valen$, estruc$, estado$,acido$, base$, cristals$ 
2480 IF y%=ies AND x%=equis THEN IF (y%=206 AND x%=127) OR (y%=158 AND x%=127> T 


HEN GOTO 380 ELSE GOTO 2520 
NEXT equis, les 
GOTO 2050 


2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 


2640 


2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 


REM 


REM ASSSSOO OSOS SOS OOOO OOOO SOS OO lO SOS] jOjOOJOOJOK 
REM ASSIOOOOOIOSIOIOIOIOIMOSIBOIOIONK IMPRIME DATOS AX9SRSRSSRSIOOOMOOSIOIOOOJOJOIOOK 
REM ARSSSS OSOS S SOS JS JO SOOOSOSOSjS SOS jajojoK 


REM 
MOD 


E 1 


PRINT CHR$(23);CHR$(0) 


INK 


1,0 


TAGOFF 


LOC 


ATE 30,3 


PRINT ”ESTRUCTURA”; 


LOC 


ATE 30,4 


PRINT "CRISTALINA” 


THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


4100 
4270 
4430 
4610 
4830 
5100 
5210 
5310 
5430 


LOCATE 31,11: PRINT”ACI./BAS.” 


THEN GOSUB 3770 


base$="1' THEN GOSUB 3820 
LOCATE 34,15: PRINT” ESTADO” 


IF cristals$="1” 
IF cristals$="2” 
IF cristal$="3” 
IF cristal$="4” 
IF cristalsS="5” 
IF cristals$S="6"” 
IF cristals$="7” 
IF cristals="98” 
IF cristals="9” 
IF acido$="1” 
IF 

IF estado$="” 1” 
IF estados$="2" 
IF estado$="3"” 
IF estado$="4” 
dis=LEN(numeroatom$> 
LOCATE 14,6 


PRINT”NUMERO ATOMICO” 


LOCATE 20-INT(dis/2>,7 
PRINT numeroatom$ 


LOC 
PRI 
LOC 
PRI 
LOC 
PRI 


ATE 1,3 

NT” PESO”; 
ATE 1,4 

NT” ATOMICO”; 
ATE 2,5 

NT pesatom$ 


LOCATE 1,7 
PPINT ”PUNTO DE”; 
LOCATE 1,8 
PRINT"EBULLICION”; 
LOCATE 2,9 


PRINT ebullicion$;” 'CHR$(245>”C"” 


LOCATE 1,11 
PRINT *”PUNTO DE”; 
LOCATE 1,12 

PRINT”FUSION”; 
LOCATE 2,13 

PRINT fusion$;” ”CHR$(245>”cC"” 
LOCATE 1,15 
PRINT 'DENSIDAD”; 
LOCATE 2,16 


PRINT densid$;” g/ml” 


dis=LEN(valen$)> 
LOCATE 17,18 


PRINT" VALENCIA”; 


LOCATE 13,19 
PRINT" (La mas estable)”; 


THEN GOSUB 3870 
THEN GOSUB 3920 
THEN GOSUB 3970 
THEN GOSUB 4000 


3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 


LOCATE 20-INT(dis/2>,20 
PRINT valen$ 
dis=LEN(estruc$> 

LOCATE 10,24 
PRINT'"ESTRUCTURA ELECTRONICA”; 
LOCATE 20-INT(dis/2>,25 
PRINT estruc$ 

REM 

REM AR3SlSSS SSI? ljOJS Jl?” E lalalala lalala lola lalalala lojolojok 
REM AMSlOSlOSOldOlOlVOK IMPRIME CARACTERES GIGANTES add SOO OOO jolOlolOjolok 
REM SS SMS SS SSISlS ld lSS Sl?” l”” Olalla lalalala lala jalolololajok 
REM 

ORIGIN 226,163 

DRAWY 179,0 

MOVE 179,0 

DRAW 179,104 

MOVE 179,104 

DRAWY 0,104 

DRAW 0,0 

ORIGIN 230,167 

DRAW 171,0 

MOVE 171,0 

DRAWY 171,98 

MOVE 171,96 

DRAW 0,96 

DRAW 0,0 

MOVE -2,-2 

FILL 1 

ORIGIN 0,0 

x=26 

y=1 

zz=100 

mm=240 

11=16x(x-1) 
Jj=399-(y-1>x16 
af=elemento$(k)> 

GOSUB 3560 

zZ=ZZ+04 

INK 1,26 

IF INKEY<(47><>0 THEN 3520 
SOUND 1,100,15,15 

IF k=1 THEN 380 

IF k=2 THEN 980 

hh=zzZ 

o0o0=mm 

LOCATE x,y 

PRINT as 

LOCATE x-12,y 

PRINT nombre$ 

FOR ss=jj TO jj-16 STEP -2 
FOR vv=11 TO 11+32 STEP 2 
IF TEST(vv,ss) THEN GOSUB 3710 
hh=hh+8 

NEXT 

oco0=00-8 

hh=zz 

NEXT 

RETURN 

IF LEN(a$>=1 THEN uno=185 ELSE uno=161 
FOR sal=0 TO 7 STEP 2 
MOVE hh+uno, oo-sal 

DRAWR 6,0 

NEXT 

RETURN 

LOCATE 31,12 

PRINT CHR$(234)>)+CHR$(235)>; 
LOCATE 31,13 

PRINT CHR$(238>+CHR$ (239) 


3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 


4200. 


4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 


RETURN 

LOCATE 37,12 

PRINT CHR$ (236)+CHR$ (237); 
LOCATE 37,13 

PRINT CHR$(238)+CHR$ (239) 
RETURN 

LOCATE 36,16 

PRINT CHR$(240>+CHR$ (241); 
LOCATE 36,17 

PRINT CHR$ (242)+CHR$ (243) 
RETURN 

LOCATE 36,16 

PRINT CHR$(234>+CHR$ (235); 
LOCATE 36,17 

PRINT CHR$(238>+CHR$ (239) 
RETURN 

LOCATE 36,16 

PRINT CHR$(143)>)+CHR$ (143) 
RETURN 

LOCATE 36,16 

PRINT CHR$(230>+CHR$ (231); 
LOCATE 36,17 

PRINT CHR$(232)+CHR$ (233) 
RETURN 

REM 


REM SSSSSS SES SS SEE SS” S ESOS SS] O ESOS” ] jajajaa ajo jojoJOK 
REM adaololololookk DIBUJO DE LAS ESTRUCTURAS CRISTALINAS A9SRSOSOOOOK 
REM SSA”? E ESSE? ESSE OOOO OOOO OOO JOK: 


REM 


REM 444444 A A A A A A A A A A 4 TETRAEDRO +44 44 A A A A A A A A A A A A A + 


REM 
ORIGIN 525,250 

DRAW 25,0: DRAW 25,48 
DRAV 25,48: DRAW 0,48 
DRAW 0,0: DRAW 15,14 
MOVE 25,0: DRAW 38,14 
MOVE 0,48: DRAW 15,62 
MOVE 24,48: DRAW 38,62 
ORIGIN 538,265 
DRAW_25, 0: MOVE 25,0 
DRAV 25,48: MOVE 25,48 
MOVE 25,48: DRAW 25,48 
MOVE 25,48: DRAW 0,48 
DRAV 0,0 

RETURN 

REM 


REM ++444 4 A A A A A A A A A 44H TETRAGONAL 44444 4 A A A A A A A A A +4 


REM 

ORIGIN 525,250 

DRAW 40,0:DRAW 40,48 
DRAW 40,48: DRAW 0,48 
DRAWY 0,0: DRAW 15,14 
MOVE 40,0: DRAW 55,14 
MOVE 0,48: DRAW 15,62 
MOVE 40,48: DRAW 55,62 
ORIGIN 538,265 

DRAW 40,0: MOVE 40,0 
DRAW 40,48:MOVE 40,48 
DRAW 40,48: MOVE 40,48 
DRAW 0,48:DRAVW 0,0 
RETURN 

REM 


REM 444444444 4++444+++ CUBICA SIMPLE +++4+4444+++444444+ 


REM 

ORIGIN 525,250 

DRAW 50,0: MOVE 50,0 
DRAW 50,48: MOVE 50,48 
DRAW 50,48: MOVE 50, 48 


4490 DRAW 0,48: DRAW 0,0 
4500 DRAW 15,14: MOVE 50,0 
4510 DRAW 65,14: MOVE 0,48 
4520 DRAW 15,62: MOVE 50,48 
4530 DRAW 65,62 

4540 ORIGIN 538,265 

4550 DRAW 50,0: MOVE 50,0 
4560 DRAW 50,48: MOVE 50,48 
4570 DRAW 50,48: MOVE 50,48 
4580 DRAW 0,48: DRAW 0,0 
4590 RETURN 

4600 REM 

4610 REM +++++++++ CUBICA CON CENTRO EN UNA CARA ++++++++++ 
4620 REM 

4630 ORIGIN 525,250 

4640 DRAW 50,0: MOVE 50,0 
4650 DRAW 50,48: MOVE 50,48 
4660 DRAW 50,48: MOVE 50,48 
4670 DRAW 0,48: DRAW 0,0 
4680 DRAW 15,14: MOVE 50,0 
4690 DRAW 65,14: MOVE 0,48 
4700 DRAW 15,62: MOVE 50,48 
4710 DRAW 65,62 

4720 FOR 1=1 TO 4 

4730 FOR o=1 TO 4 

4740 PLOT 24+1,23+0 

4750 NEXT o, 1 

4760 ORIGIN 538,265 

4770 DRAW 50,0:MOVE 50,0 
4780 DRAW 50,48: MOVE 50,48 
4790 DRAW 50,48: MOVE 50,48 
4800 DRAW 0,48: DRAW 0,0 
4810 RETURN 

4820 REM 

4830 REM ++++++++ CUBICA CON CENTRO EN EL INTERIOR ++4++++++ 
4840 REM 

4850 ORIGIN 525,250 

4860 DRAW 50,0: MOVE 50,0 
4870 DRAW 50,48: MOVE 50,48 
4880 MOVE 50,48: DRAV 50,48 
4890 MOVE 50,48: DRAW 0,48 
4900 DRAW 0,0 

4910 DRAW 15,14:MOVE 50,0 
4920 DRAW 65,14: MOVE 0,48 
4930 DRAW 15,62: MOVE 50,48 
4940 DRAW 65,62 

4950 FOR 1=1 TO 8 

4960 FOR o=1 TO 8 

4970 PLOT 29+1,27+0 

4980 NEXT o,1 

4990 MOVE 15,14: DRAW 50,48 
5000 MOVE 0,0: DRAW 65,62 
5010 MOVE 50,0:DRAW 15,62 
5020 MOVE 65, 14: DRAW 0,48 
5030 ORIGIN 538,265 

5040 DRAW 50,0:MOVE 50,0 
5050 DRAW 50,48: MOVE 50,48 
5060 DRAW 50,48: MOVE 50,48 
5070 DRAW 0,48: DRAW 0,0 
5080 RETURN 

5090 REM 

5100 REM ++4+444+44 4444444 44 444 ROMBO +++ 44 A A A A A A A A A A A A A+ 
5110 REM 

5120 ORIGIN 535,255 

5130 DRAW 45,0:MOVE 45,0 
5140 DRAW 7,20: DRAW 0,0 
5150 MOVE 45,0: DRAW 30,40 
5160 DRAW 7,20: MOVE 0,0 
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5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 


DRAW -15,40: DRAW 7,20 

MOVE 28,40: DRAWY -15,40 

RETURN 

REM 

REM 444444 A A A A A A 4H 4444 ROMBOEDRICA 4444444 4 A A A A A A A A AH ++ 
REM 

ORIGIN 525,270 

DRAW 50,0: DRAW 25,40 

DRAW 0,0: DRAW 0,28 

DRAW 25,40: DRAW 50,29 

DRAW 50,0: MOVE 0,0 

DRAW 25,-12:DRAW 50,0 

RETURN 

REM 

REM + 444444444444 +++4++ MONOCICLICA ++4++44 44444 + + +++ 
REM 

ORIGIN 525,250 

DRAW 40,0:MOVE 0,0 

DRAWY -10,35: MOVE 40,0 

DRAW 50,35: MOVE 40,0 


DRAW 50,35: MOVE -10,35 

DRAW 0,70: MOVE 0,70 

DRAW 40,70: MOVE 50,35 

DRAW 40,70 

RETURN 

REM 

REM +4+444 44 A A A A A A A A A A AH 44 EXAGONAL 444444 4 A A A A A A A A A A + 
REM 


ORIGIN 550,250 

DRAWY 0,50: DRAW 25,37 

DRAWY 25,12: DRAVW 0,0 

MOVE 0,50: DRAW -29,37 

DRAW -25,12:DRAVW 0,0 

MOVE -25,12:DRAW 25,37 

MOVE 25,12:DRAVW -25,37 

RETURN 

DATA 30,78,127,175,223,271,318,364,99,123,147,171,195,219,243,267,291,315,3 


40,364,388,412,436, 460, 484,508,532 


5540 DATA 143,191,240, 123,147,171,195,219,243,267,291,315,339,363,387,411,435,45 

9,483,507 

5550 REM 

9960 REM ASS SSSSO SOS OSO OSOS OOOO SOS OOO SOS SEO O OOOO OOOO OOOO JOJOK 

9970 REM AA4MRSSSSSSlSIRSSSSSlS lll lSIEOIEIOIO - DATAS RSS SOS SOS” SS OSOS: 

AI DS 

5590 REM 

5099. DADA "HB, “BIDROGENO"” ; 1,252. 7 -299:¿2,0B1,1.0079, 1 "1 LL AD 
E, a CA AR A A O UN OA 

' , , , , , , , , , ' , , , , , , , , , , , , , , , , y , ' , , , , , ' , , , 
PAC ar A AS E E e MS Na 

SOLISTA A a aa Y ART A A a A ad 
AE: ON A RA A o a O a E EN A 

A IN E O A A E A NS ON: 
, , 

DADO DADA DIS o atis de  a 


5630 DATA "He”,”HELIO” 


«2,7268. 


9, 


2209.7,0::180, 4, 0020,>===¡" 18%, 19,019, "L1”. "LIT 


10”,3,1330,180.5,0.53,6.939,1, 


, ”BERILIO”,4,27770,1277,1. 


1I82 281",3;,0,1,5,*Be” 
85,9.0122,2,”1s2 282",3,1,1,9 


5640 DATA 


5650 DATA 
5660 DATA 


” B” 5 


BORO”,5,----, (2030),2.34,10.811,3,”1s2 2s2 2p1”,3,1,0,9,”C”,'”CARB 


ONO” ,6,4830,3727,2.26,12.011,+-4 2,"1s2 2852 2p2",3, 
1,0,9,”N”,'”NITROGENO”,7,-195.8,-210,.81,14.006,+-3 5 4 2,”1s2 252 2p3”,1,1,0, 


9 


5670 DATA ”0O”,'”OXIGENO”,8,-183,-218.8,1.14,15.999,-2,”1s2 252 2p4”,1,0,0,3,”F”,” 
FLUOR”,9,-188.2,-219.6,1.505,18.998,-1,"1s2 252 2p5” 
,1,0,0,0,'”Ne”,'NEON”,10,-246,-248.6,1.20,20.183,----,”1s2 282 2p6",1,0,0,4 


5680 DATA "Na”,"SODIO”,11,892,97.8,0.97,22.989,1,"Ne 3s1”,3,0,1,5,”Mg”, "MAGNESIO 
*”,12,1107,650,1.74,24,312,2, "Ne 382”,3,0;, 19, 


ALI IA A IA AO E A IA A AAA A IS A ia 
ER TE IAS AA O EA A 
DODOS DAT a In 
a A RA A a E A A EN E IA 
5700 DATA '”A1”,'”ALUMINIO”,13,2450,660,2.70,26.981,3,”Ne 3s2 3p1”,3,1,1,4,”Si1i”,”S 
ILICIO”,14,2680,1410,2.33,28.086,4,"Ne 3s2 3p2",3,1, 


1,6,"P”,'”FOSFORO”, 15,280 b,44.2 b,1.82 b,30.973,+-3 5 4,"Ne 3s2 3p2”,3,1,0,3 
97 LO DATA NS"; Aa 16, 444.6,119.0,2.07,32.064,+-2 4 6,"Ne 3s2 AE 
Epa "CLORO" 17 77201 004, 90535. 499,41" 3-5 

,”Ne 3s2 See 1,1,0,1,”Ar*,'ARGON”, 18,-185.8, -189, 4,1.40,39.948,----,'"Ne 3s2 3 


De 1,0,0,4 

5720 DATA ”K”,”POTASIO”,19,760,63.7,0.86,39.102,1,”Ar 4s1”,3,0,1,5,”Ca”,”CALCIO” 
,20,1440,383,1.55,40.08,2,”Ar 4s2”,3,0,1,4,"Sc”,”ESC 
ANDIO”,21,2730,1539,3.0,44.956,3,”Ar 3d1l 4s2”,3,0,1,9 

5730 DATA "Ti”,”TITANIO”,22,3260,1668,4.51,47.90,4 3,”Ar 3d2 4s 2”,3,1,1,9,”V", 
"VANADIO”,23,3450,1900,6.1,50.942,5 4 3 2,”Ar 3d3 
4s2”,3,1,1,5,”Cr”,'”CROMO”,24,2665,1875,7.19,51.996,6 3 2,”Ar 3d5 4s1”,3,1,0,5 


5740 DATA 'Mn”,'”MANGANESO”,25,2150,1245,7.43,54.938,7 6 4 2 3,”Ar 3d5 4s2”,3 
,1,0,3 

¿5750 :DATA * Fe”, *” HIERRO”, 26,.3000, 1536, 7:86,55.847,2.-3,*Ar:3096 462”,3,1,1,5,'”C0"”, 
"COBALTO”,27,2900,1495,8.9,58.933,2 3,”Ar 3d7 4s2"”, 

Sl, 1,9,"Ni”,*"NIQUEL”,28,2730,1453,8.9,58.71,2 3,"Ar 3d8 4s2",3,0,1,4 

5760 DATA "Cu”,”COBRE”,29,2595,1083,8.96,63.54,2 1,”Ar 3d10 4s1”,3,0,1,4,"Zn”,” 
CINC” ,30,906,419.5,7.14,65.37,2,”Ar 3d10 4s2”,3,1,1, 
9,'”Ga”,'”GAÁLIO”,31,2237,29.8,5.91,69.72,3,”Ar 3d10 4s2 4p1”,2,1,1,2 

5770 DATA Ge”, '”GERMANIO”,32,2830,937.4,5.32,72.59,4,”Ar 3d10 4s2 4p2”,3,1,1,6,” 
As”,”ARSENICO”,33,613,817,5.72,74.922,+-3 5,"Ar 3d1 

O 4s2 4p3”,3,1,0,7,'Se”,'"SELENIO”,34,685,217,4.79,78.96,-2 4 6,”Ar 3d10 4s2 4p 
4”,3,1,0,9 

5780 DATA *Br”,'"BROMO”,35,58,-7-..2,3.12,79.909,+-1-5*,*Ar 3410 482 4p5",2,1,0,2, 
PRD" "KRICION" 30) LS 77, 312.0, 93:00, == Ar Sad 

O 4s2 4p6”,1,0,:0,4,”RD”,'”RUBIDIO”,37,688,38.9,1.53,85.47,1,'"Kr-581”,3,0,1,5 


5790 DATA ”Sr”,”ESTRONCIO”,38,1380,768,2.6,87.62,2,"Kr 5s2”,3,0,1,4,”Y"”,”ITRIO”, 
39,2927,1509,4.47,88.905,3,”Kr 4d1 5s2”,3,0,1,9,”Zr” 
, ”CIRCONIO”,40,3580,1852,6.49,91.22,4,"Kr 4d4 5s1”,3,1,1,9 
5800 DATA "Nb”,”NIOBIO”,41,3300,2468,8.4,92.906,5 3,"Kr 4d4 5s1”,3,1,0,5,”Mo”,” 
MOLIBDENO”,42,5560,2610,10.2,95.94,6 5 4 3 2,”Kr 
4d5 5s1”,3,1,0,5,”Tc”,'TECNECIO”,43,----,2140,11.5,(98),7,”XKr 4d5 5s2”,4,1,0,0 
5810 DATA ”Ru”,'”RUTENIO”,44,4900,2500,12.2,101.07,2 3 4 6 8,”Kr 4d7 5s1”,3,1 
,0,9,”Rh”,'RODIO”,45,4500,1966,12.4,102.90,2 3 4,” 
Kr 4d8 5s1”,3,1,0,4,”Pd”,'”PALADIO”,46,3980,1552,12.0,106.4,2 4,”Kr 4d10 5s0”,3, 
034 he 
5820 DATA ”Ag”,”PLATA”,47,2210,960.8,10.5,107.87,1,"Kr 4d10 5s1”,3,1,1,4,'"Cd”,'"C 
ADMIO”,48,765,320.9,8.65,112.40,2,"Kr 4d10 5s2”,3,0, 
1,9,”In”,”INDIO”,49,2000,156.2,7.31,114.82,3,”Kr 4d10 5s2 5p1”,3,1,1,1 
5830 DATA ”Sn”,”ESTANO”,50,2270,231.9,7.30,118.69,4 2,"Kr 4d10 5s2 5p2"”,3,1,1,1 
,”Sb”,”ANTIMONIO”,51,1380,630.5,6.62,121.75,+-3 5,” 
Kr 4d10 5s2 5p3”,3,1,0,7,"Te”,”TELURIO”,52,989.8,449.5,6.24,127.60,-2 4 6,"Kr 
4d10 5s2 5p4”,3,1,0,9 
5840 DATA ”I”,”YODO”,53,183,113.7,4.94,128.90,+-1 5 7,”Kr 4d10 5s2 5p5”,3,1,0, 
2,"Xe”,”XENON”,54,-108,-111.9,3.06,131.30,----,"Kr 4 
d10 5s2 5p6”,1,0,0,4,"Cs”,'”CESIO”,55,690,28.7,1.90,132.90,1,”Xe 6s1”,2,0,1,5 
5850 DATA ”Ba'”,"”BARIO”,56,1640,714,3.5,137.34,2,"Xe 6s2”,3,0,1,5,"La", , » . » +» 
+... ,”Hf”,"HAFNIO”,72,5400,2222,13.1,178.49 

da "Xe 4f14 5d42 6s2",3,1,0,9 
5860 DATA "Ta”,”TANTALO”,73,5425,2996,16.6,180.94,5,”Xe 4f14 5d3 6s2”,3,1,0,5,"”W 
» ,*"VOLFRAMIO”,74,5930,3410,19.3,183.85,6 5 4 3 2 
,"Xe 4f14 5d4 6s2”,3,1,0,5,”Re”,”RENIO”,75,5900,3180,21.0,186.2,7 6 4 2 -1,” 
Xe 4f14 5d5 6s2”,3,1,0,9 : 
5870 DATA ”Os”,”0OSMIO”,76,5500,3000,22.6,190.2,2 3 4 6 8,”Xe 4f14 5d6 6s2”,3 
,1,0,9,”Ir”,”IRIDIO”,77,5300,2454,22.5,192.2,2 3 4 

6,”Xe 4f14 547 6s2”,3,0,1,4,”Pt”,”PLATINO”,78,4530,1769,21.4,195.09,2 4,”Xe 4 
f14 5d9 6s1”,3,0,1,4 
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5880 DATA ”Au”,”ORO”,79,2970,1063,19.3,196.96,3 1,”Xe 4f14 5d10 6s1”,3,1,1,4,"H 
g”,'MERCURIO”,80,357,-38.4,13.6,200.59,2 1,”Xe 4£14 

5d10 6s2”,2,0,1,7,"”T1”,”TALIO”,81,1457,303,11.85,204.37,3 1,”Xe 4f14 5d10 6s2 
6p1”,3,0,1,9 , 

5890 DATA "Pb”,”PLOMO”,82,1725,327.4,11.4,207.19,4 2,”Xe 4f14 5d10 6s2 6p2”,3,1 
,1,4,”B1”,”BISMUTO”,83,1560,271.3,9.8,208.98,3 5,”X 


e 4f14 5d10 6s2 6p3”,3,1,0,7,"Po”,'POLONIO”,84,----,254,(9.2),(210>,2 4,”Xe 4f1 
- 4 5d10 6s2 6p4”,3,1,1,8 ] 
5900 DATA ”At”,'”ASTATO”,85,----, (302),----,(210>,+-1 3 5 7,”Xe 4f14 5d10 6s2 
3p5”,3,0,0,0,”Rn”,”RADON”,86, (-61.8), (-7.1),----,(22 
2)>,----,”Xe 4f14 5d10 6s2 6p6”,1,0,0,4,”Fr”,”FRANCIO”,87,----,(27),----,223,3 4 
,"Rn 781”,2,0,1,5 : 
5910 DATA "Ra”,”RADIO”,88,----,700,5.0,226,2,”Rn 782”,3,0,1,0,"A0", , 1 +» » 4 
A e PT MN ESA 
A LE AN A AA e AR TIN 
' , , , ' , , , , , , , , , , , , , , , , , 
5920 DATA , , , , , , , , , , a , , , , , , , , , , , , , , , , , , , , , , , , 
, , , ' , , , , , , ' , , , , , , , , , , , , , , , 
, , , , ' , , , , , , , , , , , ' , , , , , , , , , , , , , , , , , , , , , , , 
, , , ' , 
5930 DATA , , , 
LEO DAN a a RA "LATAS 757 370,080, 


6.17,138.91,3,"Xe 5d1 6s2",3,0,1,9,”Ce”,”CERIO”,58,3 
ro A 4f2 5d0 6s2”,3,0,1,4,”Pr”,'”PRASEODIMIO”,59,3127,935 


,6.77,140.90,3 4,”X f3 5d0 6s2”,3,0,1,9 

5950 DATA "Nd”,'"NEODIMIO”,60,3027,1024,7.00,144.24,3,”Xe 4f4 5d0 6s2”,3,0,1,9,”P 
m”,”PROMETIO",61,=---=, (1027,=---=, (147)3,3,*Ye 4f5 do 
6s2”,4,0,1,9,'Sm”,'”SAMARIO”,62,1900,1072,7.54,150.35,3 2,”Xe 4f6 5d0 6s2”,3,0,1 
17 


5960 DATA ”Eu”,”EUROPIO"”,63,1439,826,5.26,151.96,3 2,"”Xe 4f7 5d0 6s2”",3,0,1,5,” 


Gd”,'GADOLINIO”,64,3000, 1312,7.89,157.25,3,”Xe 417 5 
di 6s2”,3,0,1,9,”Tb"”,'”TERBIO”,65,2800,1356,8.27,158.92,3 4,”Xe 4f8 5d0 6s2",3,0 


11,9 

5970 DATA ”Dy”,'”DISPROSIO”,66,2600, 1407,8.54,162.50,3,"Xe 4f10 5d0 6s2”,3,0,1,9, 
”Ho” ,'”HOLMIO”,69,2600, 1461,8.80,164.93,3,”Xe 4f11 5d 

O 6s2”,3,0,1,9,*”Er”,'”ERBIO"”,68,2900,1497,9.05,167.26,3,"Xe 4f12 5d0 6s2”,3,0,1,9 


5980 DATA ”Tw”,'TULIO”,69,1727,1545,9.33,168.93,3 2,"Xe 4f13 5d0 6s2”,3,0,1,9,” 
Yb”,'”YTERBIO”,70,1427,824,6.98,173.04,3 2,”Xe 4f14 
5d0 6s2",3,0,1,4,”Lu”,'”LUTECIO”,71,3327,1652,9.84,174.97,3,"Xe 4f14 5d0 6s2",3,0 


de 
DODO DATA" ¿AA RN E A A a a PAS AAGTPINIO” 89) 
---,1050,----,227,3,”Rn 6d1 7s2”,3,0,0,0,”Th”, "TORIO 
»,90,3850,1750,11.7,232.03,4,”Rn 5f0 6d2 7s2”,3,0,1,4 
6000 DATA ”Pa”,'”PROTACTINIO”,91,----,(1230),15.4,(231>,5 4,”Rn 5£2 6d1 7s2”,3,0 
,1,0,'”U'”,”URANIO”,92,3818,1132,19.07,238.03,6 5 4 

3,'"Rn 513.641 782*,3,1,1,2,”Np", "NEPTUNIO?”,93,=-=--,037, 19.5, (237350. Y 4-13,/"R 
n 514 6dl 7s2”,4,1,1,0 
6010 DATA ”Pu”,'"PLUTONIO”,94,3235,640,----,(242),6 5 4 3,”Rn 5f6 6d0 7s2”,4,1 
,1,0,”Am”,” AMERICIO”, 95, ----,----,11.7,(243),6 5 4 

3,"Rn 517 6d0 7s2”,4,0,0,0,”Cm”,*”CURIO”,96,----,-=---,----,(247),3,”Rn 517 6d1 

782",4,0,0,0 

6020 DATA ”Bk”,'”BERKELIO”,97,----,----,----,(247>,4 3,”Rn 5f0 6d0 7s2”,4,0,0,0, 
"CH" "CALIFORNIO"”., 99) >=-==,====, ===, C2497,3, "En 510 

6d0. 782'*,4,0.,0,04 ES", "ELTNSIENIO"”, 99, ===> ==>=, ==== CODA) === "Rp 5711 640 7e2 
"”,4,0,0,0 

6030 DATA "Fm”,”FERMIO”, 100,----,=---,----,(253),----,”"Rn 5£f12 6d0 7s2”,4,0,0,0, 
"Ma", "MENDELEVIO”, 101. ==>) ==>== ===, (80077 ====, "RN 

5113 6d0 7s2”,4,0,0,0,”No”,”NOBELIO”,102,----,-=---,----,(256),----,”Rn 5£14 6d0 
7s2”,4,0,0,0 

E 6040 DATA”Lw”,'"LAVRENCIO”, 103, ----,-=---,-=---,(257),----,”Rn 5114 6d1 7s2”,4,0,0, N 

0 


Como en el dibujo de la tabla periódi- 
ca no caben las llamadas tierras raras, si 
queremos ver alguna de ellas, sólo tene- 
mos que colocar el cursor por encima 
del elemento 57 (lantanio) o del 89 (ac- 
tinio) para ver la subtabla de los Lantáni- 
dos y Actánidos (tierras raras). Una vez en 
esta nueva tabla, tenemos que mover el 
cursor al elemento que queramos y pul- 
sar la tecla ENTER para visualizarlo. 


SISTEMA PERIODICO DE 10S ELEMENTOS 


Tabla periódica con las tierras raras. 


Aunque el programa es algo largo y 
puede resultar un poco difícil su introduc- 
ción en el ordenador, los resultados ob- 
tenidos merecen todo el trabajo. Hay 
que decir que se debe tener mucho cui- 
dado a la hora de introducir las líneas 
DATA para que todos los datos sean 
correctos. 


El samario, al ser un elemento sólido y 
básico, nos aparece con un rectángulo y 
con una cubeta bajo la palabra «básico». 


GERMANIO Ge 


NUMERO ATOMICO 
32 


ACI.7BDAG. 
md 1%: 
ESTADO 
: sm 


VALENCIA 
(La a dos ed 


de 


pa. 


FSTRUCTURA FUECIRKONIOS 
Ar 3d10 4:22 p2 


Información sobre el germanio. 


PESO 
ATOMICO. 
(210) 


PUNTO DE 


A E 
Lai 008 Jud 


PUNTO DE 
FUSTON 
254 *C 
ENSIDAD 
(9.8) Y 


D 
/ml 


VALENCIA 
(La mos rt 


A ELECTRONICA 
d10 bs2 b6by4 


El polonio. Al ser un elemento neutro (ni áci- 
do, ni basico), se dibujan las dos cubetas. 


SAMARIO 


NUMERO ATOMICO 
62 


e, 


ACI./BAS. 
2 
ESTADO 
met 


VALENCIA 
(La «q. > erat 


ESTRUCTURA ELECTRONICA 
Xe 4f6 5d0 6s2 


El método 
Merise 


OMO ya hemos co- 
mentado, este méto- 
do de concepción, 
diseño y control de la 
implementación de 
proyectos informáti- 
cos ha sido desarro- 
llado por un grupo de 
empresas consultoras y fabricantes de 
software francesas y ha sido aceptado 
como estándar de la ingeniería informá- 
tica por la AFNOR (Asociación Francesa 
para la Normalización). A partir de los pri- 
meros documentos preparados y de las 
experiencias posteriores, los coautores 
han publicado (1985-86, Editions de !'Or- 
ganisation) una especie de guía maestra 
del sistema «La Methode Merise, demar- 
ches et pratiques». 

Según sus: creadores, el método inten- 
ta conseguir un conjunto de objetivos en 
el dominio de aplicación al que va des- 
tinado: la concepción y realización de 
sistemas informáticos para la gestión de 
empresas. Estos objetivos son los siguien- 
tes: 


a) ser utilizable en todo tipo de orga- 
nizaciones tanto públicas como privadas 
e independientemente de su tamaño, 
del nivel de informatización ya existente 
en ellas y del problema que se quiera 
abordar; 

b) ser aplicable con cualquier solu- 
ción técnica que se adopte: tratamiento 
de la información por lotes (procesos 
batch) o en conversacional; utilización 
de bases de datos o manejo de ficheros 
clásicos; medios informáticos centraliza- 
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dos o informática distribuida; programa- 
ción con lenguajes de cuarta genera- 
ción y otras herramientas disponibles o 
programación clásica con lenguajes 
convencionales; 

c) prever desde el comienzo la evolu- 
ción futura de los tratamientos en vez de 
concebir (como es tan usual desgracia- 
damente) el sistema en general y las in- 
formaciones a manejar en particular, en 
función de los tratamientos que se obser- 
van al comienzo del diseño; 

d) evitar en las sucesivas etapas del 
desarrollo cualquier tipo de vuelta atrás 
(que suelen ser tan costosas en medios, 
en eficacia y en tiempo); 

e) permitir una utilización parcial de 
los estudios establecidos, evitando que 
la solución de los problemas particulares 
esté hipotecada por los planteamientos 
generales a nivel organización y que so- 
porte excesivas servidumbres derivadas 
de la mecanización global; 

f) definir un número suficiente de ele- 
mentos invariantes, a diferentes niveles, 
para disponer de puntos sólidos de 
anclaje de todo el edificio organizativo 
que se está construyendo y evitar así 
que, a lo largo del desarrollo y evolución 
de los sistemas, se produzca el «sindrome 
del castillo de naipes». 


Para asegurar este aspecto último indi- 
cado, será necesario definir tres tipos de 
soluciones antes de abordar cada uno 
de los elementos que cubran las necesi- 
dades de un punto particular. Estas tres 
soluciones globales son: 


— Solución conceptual independiente 
de los papeles respectivos del hombre y 
de la máquina y del nivel de automatiza- 
ción actual o futuro; 


— Solución lógica que marca, precisa- 
mente los papeles respectivos de hom- 
bres y máquinas, su distribución geográ- 
fica y el funcionamiento de los canales 
de distribución de información a todos 
los niveles. No se consideran en la con- 
cepción de esta solución, sin embargo, 
los medios de tratamiento de la informa- 
ción, ni la situación ni el modo de alma- 
cenamiento de los datos actuales o futu- 
ros; 

— Solución física adaptada a un con- 
junto de medios materiales (equipos) y 
herramientas software (lenguajes de cuar- 
ta generación, gestores de bases de da- 
tos, etc.). 


El objetivo global consiste en descom- 
poner el sistema de información que se 
esta diseñado y estructurando, identifi- 
cando sus subconjuntos componentes 
pero manteniendo entre ellos una serie 
de fronteras invariantes para asegurar, a 
todo lo largo del desarrollo del proyec- 


Sistemas estructurales de una 
organización. 


to, la visión de conjunto necesaria para 
mantener la homogeneidad y coheren- 
cia de todos los elementos. 

Para ello, es necesario distinguir entre 
los Órganos visibles de la empresa (talle- 
res, medios de producción, centros de 
trabajo...) y los «sistemas» subyacentes a 
ellos y que les hacen funcionar. Estos sis- 
temas subyacentes en la organización 
de la empresa son de tres tipos: 


a) sistemas de gestión, en los que se 
toman las decisiones sobre el desarrollo 
de las tareas de la empresa; 

b) sistemas de información, que «ali- 
mentan» de datos a los anteriores y cons- 
tituyen, en definitiva, los canales de co- 
municación en la organización; 

Cc) sistemas operacionales, que reali- 
zan las tareas cotidianas del funciona- 
miento de la empresa. 


El objeto del método es desarrollar un 
sistema de información fiable y.eficaz. De 
la calidad de él depende en gran medi- 
da la fiabilidad del sistema de gestión e, 
incluso, la del sistema operacional. 

Aun cuando se considera la empre- 
sa como un conjunto de dominios dife- 
rentes (la producción, las compras, la 
gestión de personal...) será necesario 
tener en cuenta en cada uno de estos 
dominios los tres sistemas considerados: 
posteriormente se podrán establecer las 
relaciones entre sistemas. 

Una de las ventajas básicas del méto- 
do es la subdivisión en etapas sucesivas 
de los desarrollos, con lo cual resulta 
enormemente flexible y se adapta a di- 
ferentes situaciones de las empresas en 
cuanto a su nivel de mecanización y de 
organización en general. 


Instrucciones 
de 
transferencia 


LEGAMOS al fin a la úl- 
tima familia de ins- 
trucciones de control 
que vamos a detallar 
aquí: la tan denosta- 
da y utilizada instruc- 
cion de transferen- 
cla. 

En su forma más sencilla, la instrucción 
de transferencia permite interrumpir la 
marcha normal de un programa (que 
consiste en ejecutar sucesivamente ins- 
trucción tras instrucción), especificando 
el punto exacto donde debe continuar la 
ejecución. Es decir: cuando un programa 
llega a una instrucción de transferencia, 
se produce un salto que puede dar lugar 
a que la instrucción siguiente se encuen- 
tre en cualquier otro punto del programa, 
más o menos alejada del lugar de origen 
del salto. 

Para conseguirlo, es evidente que hay 
que tener alguna manera de dar nombre 
a las instucciones del programa, pues 
en caso contrario no podríamos definir 
fácilmente el sitio donde deseamos que 
continúe la ejecución. Por ello, antes de 
hablar con detalle de las instrucciones 
de transferencia, será preciso explicar 
los nombres de las instrucciones o «eti- 
quetas». 
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O Etiquetas en BASIC 


Cada uno de los lenguajes de progra- 
mación tiene su propia forma de definir 
etiquetas, o nombres de las instruccio- 
nes. En BASIC, por ejemplo, casi todas las 
instrucciones tienen etiqueta, que en 
este caso es, simplemente, un número de 
instrucción. La única excepción es el blo- 
,que secuencial de instrucciones, donde 


tan sólo la primera instrucción del bloque 


tiene número de instrucción. Veamos un 
ejemplo: 


100 FOR I=i TO 10: LET X=X+1: NEXT 1 


En el ejemplo anterior tenemos tres ins- 
trucciones que forman un bloque secuen- 
cial. Al bloque entero se le asigna una 
sola etiqueta (el número 100) que, en 
realidad, corresponde tan sólo a la pri- 
mera instrucción del bucle. Las instruc- 
ciones «LET X=X+1» Y «NEXT 1» no tienen 
etiqueta y por tanto no son accesibles di- 
rectamente a través de una instrucción 
de transferencia. 

En BASIC existen varias restricciones a 
las etiquetas que pueden tener las ins- 
trucciones. En primer lugar, cada línea 
del programa (que puede ser una ins- 


trucción única o un bloque secuencial 
de instrucciones) está obligada a tene: 
número de instrucción y no puede pres: 
cindir de él. En segundo lugar, los núme- 
ros de las instrucciones tienen que ser 
crecientes, aunque no necesariamente 
consecutivos. Es decir, las siguientes se- 
cuencias de etiquetas son validas en un 
programa BASIC: 


10 20 30 40 50 60 70 80 90 100... 
1001 1002 1003 1004 2001 2003 2004... 
2610 18 21 22 25 989 101... 


mientras que las siguientes son incorrec- 
tas: 


10 20 30 25 33 40 30 90 100... 
1001 1002 1003 1004 201 203 204... 
26 10 15 21 22 25 25... 


La primera secuencia es incorrecta 
porque los números de instrucción apa- 
recen en cualquier orden: unas veces 
crecen y otras disminuyen. La segunda 
está formada por dos secuencias que en 
sí son correctas (1001, 1002, 1003, 1004 
y 201 203 204), pero la segunda secuen- 
cia debería haber sido anterior a la pri- 
mera. El tercer ejemplo es inválido por- 
que no pueden repetirse los números de 
las instrucciones. 

Es práctica común en BASIC poner a las 
instucciones consecutivas números su- 
cesivos que difieran entre sí en diez uni- 
dades. Es decir, adoptar la secuencia 


10 20 30 40 50 60 70 80 90 100... 


Esto tiene la ventaja de que, si es ne- 
cesario cambiar nuestro programa e in- 
troducir nuevas instrucciones entre las 
anteriormente definidas, podremos utili- 
zar los números intermedios (que permi- 
ten insertar hasta nueve instrucciones en- 
tre cada dos del programa original) y no 
nos veremos obligados a cambiar la nu- 
meración del programa entero, como 
ocurriría indefectiblemente si añadiéra- 
mos una sola instrucción a un programa 
cuya secuencia de etiquetas fuera estric- 
tamente consecutiva. 

Como se observará, el tipo de etique- 
tas permitido por el lenguaje BASIC es 
muy poco satisfactorio. Utilizar números 
como nombres de las instrucciones no 
ayuda nada a la comprensión de los pro- 
gramas y hace realmente necesario po- 
ner comentarios abundantes que palien 
este defecto. Otro método que suele em- 


plearse consiste en utilizar números espe- 
ciales, fáciles de recordar, al comienzo 
de las partes más importantes de nuestro 
programa. Por ejemplo, supongamos 
que éste puede representarse por medio 
del siguiente organigrama resumido: 


Supongamos que las diversas seccio- 
nes y fases del programa abarcan las si- 
guientes instrucciones: 


1. Declaración de variables y asigna- 
ción de valores iniciales: 40 instruccio- 
nes. 

2. Lectura de datos del terminal: 8 ins- 
trucciones. 

3. Primera fase: 25 instrucciones. 

4. Segunda fase: 14 instrucciones. 

5. Tercera fase: 85 instrucciones. 

6. Fase final y despedida: 13 instruc- 
ciones. 


Los números de instrucción recomen- 
dables serán los siguientes: 


1. Declaración de variables y asigna- 
ción de valores iniciales: 10 20 30 40 50 
60708090 100 110 120 130 140 150 160 
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170 180 190 200 210 220 230 240 250 260 
270 280 290 300 310 320 330 340 350 360 
370 380 390 400. 

2. Lectura de datos del terminal: 1010 
1020 1030 1040 1050 1060 1070 1080. 
Añadir, además, al principio de esta 


zona, la instrucción siguiente: 


o un comentario parecido. 

3. Primera fase: 2010 2020 2030 2040 
2050 2060 2070 2080 2090 2100 2110 
2120 2130 2140 2150 2160 2170 2180 
2190 2200 2210 2220 2230 2240 2250. 
Añadir además, al principio de esta 
zona, la siguiente instrucción de comen- 
tario, o una equivalente: 


2000 REM Primera fase del programa 


4. Segunda fase: 3010 3020 3030 3040 
3050 3060 3070 3080 3090 3100 3110 
3120 3130 3140, además del siguiente 
comentario, situado al principio de la 
zona: 


5. Tercera fase: el comentario corres- 
pondiente. 


4000 REM Tercera fase del programa 


seguido de las 85 instrucciones, con los 
números comprendidos entre 4010 y 
4850, de diez en diez. 


6. Fase final y despedida: Primero un 
comentario y después los números 9010 
9020 9030 9040 9050 9060 9070 9080 
9090 9110 9120 9130. 


Obsérvese que hemos utilizado los múl- 
tiplos de 1000 al comienzo de cada una 
de las partes iniciales del programa, 
pero hemos saltado hasta el 9000 al lle- 
gar a la fase final. De esta manera, si al- 
gún día tuviésemos que realizar una revi- 
sión importante de nuestro programa 
que nos obligara a introducir una cuarta 
fase, dispondríamos de los números com- 
prendidos entre 5000 y 8999. Además, la 
tercera fase es muy larga (casi llega has- 
ta el número 5000), por lo que podría 
ocurrir que llegáramos a rebasarlo si la 
corrección del programa obliga a intro- 
ducir más instrucciones. Por tanto, será 
conveniente en cualquier caso dejar li- 
bres los números comprendidos entre 
5000 y 6000, por si la zona anterior tiene 
que expandirse. 

Más adelante, cuando hablemos de la 
programación modular, indicaré algunas 
otras sugerencias que pueden ayudar a 
aumentar la legibilidad de los progra- 
mas, para hacerlos más fáciles de enten- 
der y modificar, a pesar de las pocas po- 
sibilidades que da el lenguaje BASIC en 
esta dirección. 


MM Etiquetas en PASCAL 

Como se ha dicho a menudo, PASCAL 
es un lenguaje basado primordialmente 
en la programación estructurada, que 
mira con malos ojos la instrucción de 
transferencia y, consiguientemente, casi 
no tiene necesidad de etiquetas. Por 
esta razón, los programas PASCAL están 
normalmente desprovistos de ellas. Sin 
embargo, PASCAL es un lenguaje de pro- 
gramación completo y la instrucción de 
transferencia, aunque desaconsejada, 
existe. Por tanto, también ha de ser posi- 
ble poner etiquetas a ciertas instruccio- 


nes (muy pocas) que puedan ser alcan- 
zadas directamente desde cualquier 
otro punto del programa. Esto suele apli- 
carse cuando en el transcurso de la eje- 
cución del programa aparecen condi- 
ciones de error que hay que señalar y 
que deben dar lugar a una detención 
completa de su funcionamiento. 

En principio, una etiqueta en PASCAL 
es, al igual que en BASIC, un número de 
instrucción (un número entero, positivo, 
de cuatro cifras como máximo). Al igual 
que los identificadores o variables, las 
etiquetas hay que definirlas, lo que se 
hace en la parte declarativa del progra- 
ma con la instrucción siguiente: 


donde la palabra reservada LABEL signifi- 
ca «etiqueta» en inglés. 

Además, la etiqueta se colocará a la iz- 
quierda de la instrucción correspondien- 
te, separada de ella por dos puntos: 


1000: writeln (*Error”);3 


En algunos compiladores de PASCAL se 
permite utilizar nombres, además de nu- 
meros, como etiquetas de instrucciones. 


O Etiquetas en APL 


En el lenguaje APL las etiquetas son 
muy frecuentes, aunque no es obligato- 
rio en modo alguno que cada instrucción 
tenga su etiqueta. Una etiqueta es un 
identificador, parecido en todo al nom- 
bre de una variable, y se coloca a la iz- 
quierda de la instrucción a la que da 
nombre, separada de ella por dos pun- 
tos: 


FASE1: 'Aquí comienza la fase 1' 


En el ejemplo anterior, cuando el pro- 
grama alcance la instrucción de etique- 
ta FASE1 escribirá el mensaje: «Aquí co- 
mienza la fase 1». 

La utilización de nombres tiene una 
gran ventaja sobre la de números de ins- 
trucción: que el nombre mismo de la eti- 
queta puede dar una idea de en qué 
parte del programa nos encontramos 
ayudando a hacerlo más legible. 


APLICACIONES 


HOJAS DE CALCULO LOTUS 1-2-3 (parte 2) 


Ll] Más 
2 comandos de 


la hoja electrónica E e EA 
Crea un gráfico 
MPRIMIR se utiliza A e la A, 


para la impresión de 
una hoja de trabajo. 
Permite establecer 
parámetros como: 
rango, márgenes, ca- 
becera, pie de pádi- 
na, bordes, impreso- 


ra a utilizar... 


m al DATOS es el comando de base de da- 


Boja Rango Copiar Hover Pichero Imprimir Gráfico, Datos! Sistema Terminar tos. 
Llenar, Tabla, Ordenar, Datos, Precuencia, Batriz, Regresión, Analizar-Texto 
Ñ B 
1 
2 


A: MEN 
Boja Rango Copiar Bover Pichero| Imprimir] Gr<fico Datos Sistema Terminar 
Imprime rango por impresora o en fichero impresión 
4 B C D B P 8 Y 
í 
2 


GRAFICO permite realizar un gráfico 
con un rango de valores de la hoja según 
cinco tipos diferentes: líneas, barras, sec- 
tores, barras apiladas, XY. 


SISTEMA permite salir temporalmente al 
DOS sin abandonar 1-2-3. 


E 
| Boja Rango Copiar Bover Pichero Imprimir Gráfico Datos ¡SísLema] Terminar 
Invoca el Intérprete de Bandatos DOS 
4 B c D 13 P 6 B 


1 
2 


TERMINAR se utiliza para finalizar una se- 
sión de trabajo. Recuerde que debe gra- 
bar su trabajo para no perderlo. 


M: ME 
Boja Rango Copiar Mover Pichero Imprimir Gráfico Datos Sistema ¡Terminar! 
Termina la sesión de 1-2-3 ¿Ba grabado su trabajo? 

4 B c D 13 r 8 nl 


' Las funciones 


Queda por añadir algo sobre estas fun- 
ciones que se encuentran en la gran ma- 
yoría de las hojas del mercado. El exten- 
dernos en el caso de las funciones del Lo- 
tus puede ayudar a conocer las del res- 
to de las hojas de cálculo, ya que la ma- 
yor parte de ellas son estándar y las que 


aparecen de forma especial en Lotus 
pueden encontrarse en otro formato. 

Una función —esuna fórmula que per- 
mite realizar cálculos de una forma fácil 
y rápida. En Lotus 1-2-3 se llaman funcio- 
nes simplemente porque todas co- 
mienzan con dicho carácter. La mayoría 
de ellas constan de dos partes funda- 
mentales: 


— Seguido del nombre de la fun- 
ción. 

— El argumento o argumentos en- 
cerrados entre paréntesis y separados 
por puntos y comas. 


Se dividen en varios tipos: 


— Funciones matemáticas: procesan 
valores numéricos y proporcionan resul- 
tados numéricos. 


Valor absoluto de x 
Árco coseno de x 
Maero aleatorio 0-1 


e elevado a potencia x 
Logaritmo de x, base e 
Logaritmo de x, base 10 
PM (9,1459...) 

Baix cuadrada de x 

1 redondeado a n 


Árco seno de x 
MATAR (x) Arco tangente en 2 
cuadrantes de x 


MATAR? (x; y) Arco tangente en 4 posiciones 


cuadrantes de x Desto de 1/y 
00S (x) Coseno de x Seno de x 
vo (x) Parte entera de x ViB(x) Tangente de í 


Mota: Todas las funciones trigonométricas se expresan en radianes, no en 
frados. Cuando una función matemática debería resultar en infinidad, 
por ejemplo, PCOS(p1/2), 1-2-3 produce un nmero moy grande en notación 
cientifica. 
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— Funciones financieras: calculan los 
resultados aplicables a préstamos, anua- 
lidades y amortizaciones. 

— Funciones estadísticas: a partir de 
una lista de argumentos proporcionan un 
resultado de un parámetro estadístico. 


— Funciones de fecha y hora. 

— Funciones que generan números de 
serie. 

— Funciones que aceptan números de 
serie. 

— Funciones de cadenas: sus argu- 
mentos pueden ser numéricos o alfanu- 
méricos. 

— Funciones lógicas: son funciones nu- 
méricas cuyos resultados son O (FALSO) o 
1 (VERDAD). 

— Funciones especiales. 


= APLICACIONES 


Con todas estas funciones se puede 
trabajar en la hoja y con algunas de ellas 
en la base de datos. Se utilizan dentro de 
las fórmulas, debe tenerse en cuenta que 


si el número de parámetros es erróneo o 
la sintaxis no es correcta Lotus se queja- 
rá con un ligero pitido indicándonos que 
debemos corregirlo. 


PASCAL 


Registros 
variantes 


veces, el aspecto de 
un registro depende 
del valor de uno de 
los campos. Por ejem- 
plo, en las fichas de 
personal de una em- 
presa podrían estar 
los datos del cónyu- 


type: 
Fecha_t = record 
DiaMes : 1..31; 
Anyo : integer; 


Ficha_t = record 
Nombre: Nombre_t; 
Edad : 16..70; 


Soltero: 03 
Casado : 


Divorciado, 
Viudo: 
end; 


Con esta estructura, todas las fichas de 
tipo Ficha.t tienen los campos Nombre, 
Edad y EstadoCivil. Además, y según el 
valor de este último campo, tienen los 
campos Cónyuges y FechaBoda si es ca- 
sado y el campo Final cuando es viudo o 
divorciado. Nótese que algunos de los ti- 


Mes : (Enero,Febrero,Marzo, Abril,Mayo, Junio, Julio, 
Agosto, Septiembre, Octubre, Noviembre, Diciembre); 


Estado_t = (Soltero,Casado, Di vorciado,Viudo); 
Nombre_t = array [1..201 of char; 


case EstadoCivil: Estado_t of 


(Conyuge 
FechaBoda: Fecha_t ); 


(Final: Fecha_t) 


ge sólo si el estado civil fuera casado. En 
PASCAL es posible definir fichas con cam- 
pos fijos y con otros que pueden variar 
según el valor de alguno de aquéllos. 
Veamos un ejemplo: 


: Nombre_t; 


pos utilizados han sido definidos sobre la 
marcha al definir el registro mientras que 
otros lo han sido con anterioridad. | 

Los campos variables siempre deben 
estar al final del registro y a continuación 
del campo que decide la estructura (Es- 
tadoCivil en este caso), utilizándose algo 


2 PASCAL 


muy similar a la instrucción CASE, sólo 
que poniendo a continuación de cada 
posible valor, y entre paréntesis, la lista 
de campos específicos que le corres- 
ponden (al final de cada variante es posi- 
ble poner, a su vez, otra definición de 
campos, variables, etc.). 


Un nombre de campo no puede apa- 
recer repetido en varias listas; por otra 
parte, como ya se habrá imaginado el 


type 


Ejemplo_t = record 


Normalmente, los distintos campos de 
un registro ocupan posiciones consecuti- 
vas al ser almacenados en la memoria 
del ordenador, por lo que, si representa- 
mos con cajas las distintas porciones de 
ésta, una ficha del tipo Ejemplo.t podría 
ser: 


E 


Sin embargo, nada nos impide que uti- 
licemos la variante B, por lo que esa mis- 
ma ficha tambien seria: 


A 


Variantes_t = (Variante_A, Variante_B, Variante_C); 


CampoComuni: Tipol; 
CampoComun2: Tipo2; 


case Variantes_t of 
Variante_A : (Campo_Al:z Tipo_Al; 


Campo_A2: 


Variante_B : (Campo_Bi: 
Campo_B2: 


Variante_C : () (Xx Ningún campo %) 


lector, el campo que decide debe ser de 
algún tipo escalar o subrango. 
Realmente, no es obligatorio que exis- 
ta un campo discriminante para tener 
definiciones alternativas de una ficha; un 
registro así se define exactamente igual 
que los del tipo que hemos visto pero 
omitiendo el discriminante, aunque, 
como se tiene que utilizar la «estructura» 
CASE, habrá que utilizar algún tipo esca- 
lar para señalar las diferentes variantes: 


Tipo_A2); 


Tipo_B1; 
Tipo_B2); 


En otras palabras, estamos utilizando 
las mismas posiciones de memoria pero 
vistas con diferentes «ojos»; estas estruc- 
turas que permiten acceder de diferentes 
maneras a una misma zona de memoria 
son lo que se denomina «uniones libres» 
y, en principio, sólo resultan útiles para 
los programadores muy expertos. No obs- 
tante, vamos a ver algunas aplicaciones 
típicas: 


Como sabemos, todos los datos con los 
que tratan los ordenadores se guardan 
internamente utilizando una cierta canti- 
dad de bytes o palabras de memoria; 
por ejemplo, un entero suele guardarse 
utilizando una palabra (dos bytes), y un 
ARRAY OF CHAR necesita tantos bytes 
como caracteres. A veces se necesita 
poder utilizar individualmente esas por- 
ciones de memoria, y ello es posible uti- 
lizando una unión libre: 


record 
case boolean of 
true : ( Número: real); 
false: (Pal, 
Paz; 
Pag; 
Pad : integer) 
end; 


Suponiendo que un número real ocu- 
pase ocho bytes, una ficha asi definida 
quedaria: 


Número real (8 bytes) 


Pero de esa misma ficha sería también: 


De esta manera, podríamos saber 
cómo se guarda internamente un núme- 
ro real sin más que guardarlo en el cam- 
po Número de una ficha y leer los valo- 
res de los campos enteros. Como ejerci.- 
cio, el lector podría escribir un programa 
e investigar cómo se guardan en memo- 
ria datos de tipo real, boolean, algun 
tipo escalar, etc. 


procedure PonFecha (F: Fecha_t); 


Si el campo de un registro fuese una ta- 
bla de números y algún elemento en con- 
creto de esa tabla se tuviera que utilizar 
mucho para hacer determinados cálcu- 
los, se podría ahorrar tiempo si nos evitá- 
semos emplear un índice cada vez que 
se hiciera referencia a la variable: 


record 
case boolean of 
true : 
(Tabla: array (1..10) of real); 
false: 
(T11,T2: real) 
end; 


De esta manera, T1 coincide con T(1) y T2 
con T(2). 


Normalmente, y por motivos derivados 
del hecho de ser un lenguaje compilado, 
es posible tener uniones libres también 
cuando existe el campo discriminante, 
con lo que, independientemente del va- 
lor de éste, se puede utilizar la variante 
que se desee; depende del programa- 
dor el utilizarlo correctamente. 

Vamos a preparar un procedimiento 
que presente el valor de los diferentes 
campos de las fichas del primer ejemplo: 


(Xx Presenta la fecha con números: 23-11-86 etc. X) 


begin 
with F do 


write (DiaMes :2,”-”,ord (Mes) + 1 :2,”-”,Anyo mod 1900 :2) 


procedure Presenta (Ficha: Ficha_t); 
(X* Presenta las diferentes partes de una ficha X*X) 


begin 

with Ficha do 

begin 
writeln (*Nombre: 
writeln (”Edad: 
wite (”—Estado civilz ”)3 


case EstadoCivil of 


Soltero: writeln (*Soltero”); 


Casado : begin 


writeln (*Casado?); 
writeln (*Nombre del cónyuge: 
(*Fecha matrimonio  : 


write 


”? ,Nombre) ; 
”? Edad); 


(X esto es un CASE de verdad X) 


” ,Conyuge) ; 
e 


PonFecha (FechaBoda) ; 


writeln 
end; 


Divorciado: begin 


writeln (*Divorciado?”); 


write 
PonFecha 


(*Desde: 
(Final); 


-d3 
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writeln 
end; 


Viudo : begin 


write 
writeln 


end 
end (£ fin de CASE *) 


end (*X fin de WITH X) 


En general, y aunque se tengan dife- 
rentes campos según el valor del discri- 
minante, la porción de memoria ocupa- 
da por una ficha cualquiera es siempre 
la misma e igual a la necesaria para el 
caso en que se precise más, que en el 
ejemplo es cuando la ficha tiene los 
campos Nombre, Edad, EstadoCivil, Cón- 
yuge y FechaBoda. 


NOTA: 

Algunas versiones de PASCAL existen- 
tes para ordenadores domésticos care- 
cen de la disponibilidad de crear regis- 
tros variantes y, menos aún, de crear 
uniones libres. 


type 


begin 
with Resultado do 
begin 


end 
end; 


Como A y B y Resultado son del mismo 
tipo, sólo se puede utilizar un WITH (real- 
mente, sería más eficiente usarlo con A o 
B, pues a sus campos se les hace referen- 


writeln (”Viudo”);3 
(*"Desde: ”); 
PonFecha (Final); 


end; (X fin del procedimiento X) 


Complejo_t = record Re, Im: real end; 


procedure Producto (A,B: Complejo_t; var Resultado: Complejo_t); 
(x Obtiene el producto de A por B y lo guarda en Resultado X) 


Re := A.Re * B.Re -— A.Im * B.Im; 
Im := A.Re £ B.Im + A.Im * B.Re 


(u Otro ejemplo 
de registros 


(Antes de empezar, una advertencia: 
para entender este ejemplo hace falta 
tener una formación previa en números 
complejos.) 

Una forma muy cómoda de manejar nú- 
meros complejos es utilizar registros con 
campos para las partes real e imagina- 
ria. Como ejemplo de esto, vamos a es- 
cribir un procedimiento para, dados dos 
números complejos, obtener su producto 
y guardarlo en la variable correspon- 
diente: 


cia más veces que a los de Resultado). 
Un método todavía más flexible sería 

utilizar variantes para poder emplear 

complejos en forma polar o binómica. 


type 
Complejo_t = record : 
case Forma: (Polar, Binomio) of 
Polar: (Modulo, Argumento : real); 
Binomio: (Re, Im: real) 
ito end; 


procedure Producto (A,B: Complejo_t; var Resultado: Complejo_t); 


(X Obtiene el producto de A por B y lo guarda en Resultado. %X) 
(X Pasa todo a forma binómica antes de hacer los cálculos. %) 
(X Resultado queda según el valor previo de su campo Forma. *) 


var Al,B1,Resi:z Complejo_t; 
Obtener copia binómica de A 


if Forma = Binomio then Al := A 
else 
begin 
Al.Forma:= Binomio; 
Al.Re ¿= Modulo % cos (Argumento); 
Al. Im ¿3= Modulo *X sin (Argumento) 
end; 
(1--— Obtener copia binómica de B --------—-X*) 
with B do 
if Forma = Binomio then Bi := B 
else 
begin 
Bi.Forma:= Binomio; 
B1.Re ¿= Modulo * cos (Argumento); 
Bi. Im ¿= Modulo * sin (Argumento) 
end; 
1-—————= 
with Resi do 
begin 
Forma:= Binomio; 
Re :3= Al.Re Xx Bi.Re — Al.Im £ Bl. Im; 
Im ¿:= Al.Re £ Bi.Im + Al.Im £ Bi.Re; 


4) 


Cal cul ar 


Guardar resultado 
if Resultado.Forma = Binomio then Resultado := Res1 
else 
begin 
Resultado. Modulo ¿= sqrt (sqr(Re) + sqr(Im)) 


3 
Resultado. Argumento:= arctan (Im/Re) “+ 


end 
end (X with Xx) 
end; 


Este procedimiento quedaría más cla- 
ro si se tuviesen procedimientos aparte 
para cambiar la forma de los numeros. 


Pruebe el lector a hacer un programa 
«Calculadora» para numeros complejos. 


1 Lectura 
de ficheros 


A instrucción para 
leer un registro de un 
fichero secuencial 
es: 


READ nombre-fichero 
AT END sentencia 


Al ejecutarse esta instrucción, se leerá 
un registro del archivo especificado en 
nombre-fichero. Cuando se hace un 
OPEN a un fichero, la cabeza de lectu- 
ra/escritura se coloca en el primer regis- 
tro del mismo. En un fichero secuencial, 
no se pueden releer registros. Es decir, si 
se ha leído el registro siete no se puede 
volver atrás y leer el seis. La lectura sólo 
es hacia delante. 

Igualmente, si se ha leído el registro sie- 
te, para leer el número diez ha de pasar- 
se por todos los anteriores: ocho y nue- 
ve. Así se irán leyendo uno a uno todos 
los registros. El final de un fichero se de- 
tecta automáticamente y en ese mo- 
mento se ejecutan las sentencias que si- 
guen al AT END, hasta encontrar el primer 
punto. 

Es labor del programador codificar las 
instrucciones precisas para que, una vez 
finalizado un fichero, no se intenten leer 
más registros, evitando con ellas un error 
de ejecución. 


Grabación en impresora 


El lector ya conoce cómo se declaran 
ficheros asignados a impresora, que son 


OTROS LENGUAJES 


listados en papel. Sólo pueden ser de es- 
critura. 

El formato de las instrucciones de im- 
presión es diferente del de grabar en dis- 
c0: 


AFTER número 
WRITE nombre-registro FROM campo 
BEFORE 


PAGE 


Nombre-registro es el definido en la FD. 
La opción FROM campo equivale a un 
MOVE (MOVE CAMPO TO nombre-registro) 
y un WRITE consecutivos (WRITE nombre- 
registro). 

Se puede elegir entre dos partículas: 


— AFTER: después. 
— BEFORE: antes. 


seguidas de un número entero o del lite- 
ral PAGE. 

La utilidad de estas sentencias se ve en 
los siguientes ejemplos: 


WRITE LINEA AFTER 3 


Imprimirá el contenido de LINEA des- 
pués de dejar tres líneas en blanco. 


WRITE LINEA BEFORE 3 


Contrariamente a la anterior, escribirá 
primero y saltara despues. 


WRITE LINEA AFTER PAGE 


PAGE indica salto de página. La impre- 
sora saltará hasta el comienzo de la si- 
guiente página y luego escribirá. 

Todas estas opciones dan una gran 
flexibilidad a! programador a la hora de 
elaborar un informe. 

Se presenta a continuación un progra- 
ma que obtiene un listado por impresora 
del fichero de personal creado con ante- 
rioridad. 


Este informe debe llevar una cabecera 
por cada pagina que se escriba, un con- 


IDENTIFICATION DIVISION. 
PROGKAM-ID., EJ-—FINAL. 


ENVIFONMENT DIVISION. 
INPUT-OQUTPUT SECTION. 
FILE-CONTROL. 


SELECT PERSOMAL ASSIGN TO DISK 


ORGANIZATION LINE SEQUENTIAL. 


SELECT SALIDA ASSIGCN TO PRINTER. 


DATA DIVISION. 
FILE “SECTION, 


FD PEFSOMAL LABEL FECOFRD STANDARD 


VALUE OF FILE-ID *PERSO.DAT?. 


01 REG-FERSONAL. 


OS NOM-AFE PIC ACIS4A 
QS DIRECCION PIC Xc025). 
OS TELEFONO PIC XUL). 
FD SALIDA LABEL RECORD OMITTED. 
01 LINEA PIC X(80). 


WORK ING-STORAGE SECTION. 


01 FIN PIC X 
01 CABECERA1. 
OS FILLER PIC Xx(30) 
OS FILLER PIC XxX (19) 
” LISTADO DE PEFSONAL”. 
OS FILLER o, 
OS FILLER PIC" Xx(5) 
OS FAGINA PIC 9(3) 
01 CABECEFAZ. 
05 FILLER PIC X1(2) 
OS FILLER PIC. X(19) 
"NOMEFE Y APELLIDOS”. 
OS PRILLER PIC. X (203 
OS FILLER PIC XUS 
> DIRECCION”. 
OS FILLER PIC Xx(18) 
OS FILLER FIC X(8) 
* FELEFUNO”. 
01 DETALLE. 
OS FILLER PIC X12) 
035 NOM-AFE-DET PIC X(35). 
OS FILLER PIC X(2) 
OS DIRECCION-DET PIC X(29). 
OS FILLER PIE X:Cz 
OS TELEFONO-DET PIC Iii 
01 CON-LINEA PIC 4 


PROCEDURE DIVISION. 


INICIO. 
OPEN IMPUT PERSONAL. 
OFEN OUTPUT SAL IDA. 
PERFORM LEER. 


PERFORM IMPRIMIR UNTIL FIN = *S”. 


CLOSE PERSONAL 
SALIDA. 


FIN-FPROGRAMA. 
STOF RUN. 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE * 


VALUE 


VALUE 


VALUE 


VALUE 


tador de páginas y no se deben escribir 
más de 50 líneas en cada hoja. 


a 


SPACES. 


SPACES. 
"PAGI ? 
ZERO. 


SPACES. 


SPACES. 


SPACES. 


SPACES. 
SPACES. 


SPACES. 


VALUE St. 


“o OTROS LENGUAJES 


IMPRIMIR. 
MOVE NOM-APE 
MOVE DIRECCION 
MOVE TELEFONO 
IF CON-LINEA > 350 
PERFORM CABECERAS. 


ADD 1 TO CON-LINEA. 
PERFORM LEER. 


CABECERAS. 
ADD 1 TO FAGINA. 


LEER. 


En la WORKING de este programa se 
describe FIN-FICHERO, que se utiliza para 
detectar el final del fichero y otro campo 
para contar el número de líneas escritas. 
El primero se inicializa con «N» y el segun- 
do con 51. 

A continuación se definen las cabece- 
ras que van a aparecer en el listado y la 
línea de detalle. 

Se abren los ficheros y se lee el primer 


TO NOM-APE-DET. 
TO DIRECCION-DET. 
TO TELEFONO-DET. 


WRITE LINEA FROM DETALLE AFTER 1. 


WRITE LINEA FROM CABECERA1 AFTER PAGE 
WRITE LINEA FROM CABECERA2 AFTER 2 
MOVE ZERO TO CON-L INEA. 


READ PERSONAL AT END MOVE 


TO FIN. 


registro de PERSONAL. Seguidamente se 
establece un bucle que se ejecutará has- 
ta que se haya recorrido el fichero en su 
totalidad. Por cada registro leído se ge- 
nera una línea en la impresora. 

El salto de página se controla con la 
variable CONT.LINEA. Cuando ésta sea 
mayor de 50, se incrementa el contador 
de página, se inicializa el contador de lí- 
neas y se escriben las cabeceras. 


GLO y CULTURAL y == 


